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EDITORIAL 


Après quelques années d’attente, les cartes PCMCIA commencent enfin à faire leur entrées en force 
dans tous les domaines de l'informatique portable. En effet, suivant l'exemple du HP95, nous voyons 
d’un côté de plus en plus de portables acceptant ces cartes. De l’autre côté, alors que ces cartes se 
cantonnaient jusqu’à peu de temps aux simples mémoires, quasiment tous les types d’interfaces ont 
explosé en l’espace de quelques mois. D'abord les disques durs ct les cartes Flash (au fait, on 
commence seulement à voir apparaitre le nom de SunDisk dans la presse dite spécialisée !) et 
maintenant tout ce qu’on peut imaginer : Modems, Contrôleurs SCSI ou cartes réseaux et même 
(avec un an d’avance) les cartes Pager permettant de recevoir ses message directement sur son HP ! 
Nous ne manquerons pas de tester quelques unes de ces nouvelles cartes, dès que nous pourrons en 
disposer. Que quelques sociétés aient l’idée d’en adapter quelques unes pour la HP48, et cela serait le 
Paradis. 


Autre Chose. Certains auteurs tiennent compte de nos observations et n'hésitent pas à nous envoyer 
un exemplaire de leur nouvel ouvrage, alors que nous avons pas hésité à faire une critique 
relativement dure à propos de leur première édition (nous pensons tout particulièrement à Mathieu 
Cornillaut et sa nouvelle édition de HP48 en Prépa, que nous venons juste de recevoir et que nous 
vous présenterons dans le prochain numéro). D’autres se sentent personnellement attaqués lorsque 
nous faisons quelques observations sur leur livre, et ne comprennent pas que nous jugions logique 
d’être plus critiques pour un livre arrivant à sa quatrième version. Alors quelle attitude devons nous 
adopter ? Passer sous silence les points qui ne nous plaisent pas, afin de ne pas froisser l’auteur ou 
Péditeur ? Ou faire de la critique un inventaire exhaustif de tous les défauts du livre ? Sans aller 
jusque là, l'experience prouve que ce n’est qu’en mettant au grand jour les défauts d’un produit qu’on 
incite l’auteur à les corriger. Au delà de cet exemple, c’est la liberté d’expression du bureau et de ses 
adhérents que l’on tente encore une fois de critiquer. Rassurez vous, il n’est pas dans notre intention 
de céder à quelque pression que ce soit. Après tout, à quoi cela servirait-il que nous faisions tout 
pour conserver notre indépendance financière (c’est à dire sans passer de publicité dans JPC) si ce 
n’est pour conserver cette totale liberté d’expression ? 


Pour revenir à un sujet plus agréable et puisque nous parlons de livres, nous venons aussi de recevoir 
un exemplaire de PC de Poche : HP100 & 95LX, le premier livre Français consacré aux HP95 et 
HP100. Le temps de le lire et nous vous le présenterons aussi dans le prochain numéro. 


Dans un futur un peu plus éloigné, si vous n’avez rien prévu pour votre week-end des 28 et 29 mai 
1994, le club Hollandais Prompt-HPGC a pensé à vous. En effet, il organisera à cette date une 
conférence internationnale à Amsterdam, pour fêter ses dix ans. Bien sûr, nous projetons d'y aller. Si 
vous désirez vous joindre à nous, manifestez vous dès maintenant pour connaitre les modalités 
pratiques. 


Enfin, pour revenir sur ce JPC, certains nouveaux adhérents ont manifesté leur étonnement dans le 
fait que le journal soit en retard. Pour eux, nous rapellerons encore une fois que ce retard est dû 
uniquement au fait que nous ne recevons pas suffisement d’articles provenant des adhérents. Pour les 
autres, nous ne pouvons que rapeller encore une fois que ce retard peut être éliminé dès la semaine 
prochaine si vous nous envoyez tout de suite vos articles. 
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CHOC EN RETOUR 


"PROGRAMME BIZARRE 
ET DERIVES LITTERAIRES" 


Lettre ouverte à 
Monsieur Guy TOUBLANC 


Note de Jacques Belin 
personellement par l'article de Guy Toublanc à propos du livre 


: Paul Courbis s'est senti attaqué 


“Voyage au Centre de la HP48". Il a donc souhaité nous faire 
publier le droit de réponse suivant. Nous le diffusons dans son 
intégralité, tel que nous l'avons reçu. Je me permettrais seulement 
d'apporter quelques observations, précédées par la mention 
"NBIB". 


Après avoir lu la violente diatribe de Monsieur Guy 
Toublanc (276) à l'encontre de Voyage au centre de la 
HP48 (JPC 90, pages 14 à 18), il m'a paru opportun 
de répondre ici à ses nombreuses critiques. 


Commençons par le commencement (les phrases 
extraites de l’article de Monsieur Guy Toublanc sont 
entre guillemets et en italiques) : 


«Les éditions du livre Au centre de la HP48 se suivent 
mais se ressemblent par la conservation de programmes 
qui ne sont pas des modèles du genre. Dans la dernière 
édition [...], on trouve le programme r-a/ (page 402) 
qui est le même que celui de la troisième édition (page 
358), donc en principe devrait être sans gros défauts.» 





Monsieur Guy Toublanc débute son article par une 
longue critique du programme R-0/ (critique un peu 
rapidement généralisée à l’ensemble du livre). Il est 
vrai que les imperfections de ce programme m’avaient 
échappé et c’est pourquoi il n’a pas été modifié entre 
la troisième édition de Voyage 48 S/SX et Voyage 48 
G/GX. Je m'étonne néanmoins de l'attitude qui 
consiste à attendre avec un malin plaisir la sortie du 
nouveau livre pour en "remarquer" les erreurs. Il 
aurait été plus profitable pour tous de me les signaler 
à temps : j'aurais été très heureux d’en tenir compte 
pour améliorer Voyage. D'ailleurs, toute personne 
découvrant des erreurs dans le livre m’aiderait 
grandement si elle me faisait parvenir un "bug-report" 
(par exemple, à l'adresse indiquée dans le livre dans 
la page de copyright). NDJB : Guy Toublanc a fait, dans ces 
mêmes colonnes, de nombreuses remarques ou améliorations sur 





des programmes parus dans Voyage (et dans d'autres livres 
d'ailleurs). JPC étant distribué chez Maubert, il te suffisait d'y 
jeter un coup d'œil. De plus Guy est-il si bon que cela pour qu'il 
soit le seul à trouver les bugs dans des livres ? 


«Tout d’abord je signale que cette rapide analyse est 
basée sur un exemplaire que j'ai acheté et qui n’a pas 
été envoyé au club (il y a des principes qui se perdent).» 





Je m'interroge sur la signification de cette remarque 
faite dans le cadre d’une analyse qui se voudrait 
objective. ôtez-moi donc un doute : vos conclusions 
auraient-elles été différentes si le livre vous avait été 
offert ? NDJB : Pas du tout. Si tel était le cas, cela s'appellerait 
de la corruption. Le fait qu'un auteur nous envoie un article (ou 
tout autre objet) ne peut lui garantir qu'une chose : que nous en 
fassions une présentation dès le prochain JPC. 


Quant aux "principes qui se perdent", je n’ai pas le 
souvenir d’avoir un jour reçu un exemplaire gratuit de 
JPC. Par contre Sébastien LALANDE et moi-même 
nous souvenons avoir été ‘"virés comme des 
malpropres" d’une des réunions du club (en théorie 
ouvertes à tous ???), sous le prétexte que Sébastien 
mavait pas payé sa cotisation. Cela ne m’a pas 
empêché de citer le club sans remarque désobligeante 
d’aucune sorte. NDJB : Nous n'avons jamais recu aucun livre 
de ta part (que nous te le demandions ou pas, d'ailleurs). Nous 
n'avions donc pas de raison de t'envoyer un exemplaire gratuit du 
journal, comme nous le faisons aux autres auteurs (Jean-Michel 
Ferrard peut en témoigner). Il ne faudrait pas mettre la charrue 
avant les boeufs. En ce qui concerne le fait que tu aurais été "viré" 
d'une réunion, cela s'est passé avant que je prenne la présidence 
du club et je n'ai pas de souvenir précis à ce sujet. Il est possible 
que la personne qui ait demandé à Sébastien de penser à régler sa 
cotisation s'y soit mal pris (en effet, certains ont une facheuse 
tendance à oublier, tout en étant de bonne foi). Depuis que le club 
organise des réunions, nous n'avons jamais seulement tenté de 
décourager une personne d'y venir, bien que pour certains 
“pique-assiette”" ou “indésirables” cela nous ait souvent démangé. 
Indésirables dont vous ne faites absolument pas partie (Sébastin 
et toi), comme tu as pu le voir ensuite, les quelques fois où tu est 


revenu aux réunions. 


«Qu'en est-il aujourd'hui avec cette 4% édition 
actualisée pour les HP48 G/GX ?» 


Je tiens à préciser que Voyage 48 G/GX ne remplace 
nullement Voyage 48 S/SX : il ne s’agit donc pas 
d’une quatrième édition, mais d’un nouveau livre 
(d’ailleurs, les deux ouvrages possèdent des numéros 
ISBN distincts). NDJB : Il ne faudrait tout de même pas jouer 
sur les mots. S'il est vrai de le livre consacré à la GX comporte de 
nouveaux points et que les tableaux comportent des adresses 
différentes, sa structure est quasiment la même que pour ceux de 
la SX. En fait, pour les parties communes, le texte est quasiment 
le même. Nous ne pouvons donc pas parler d'un nouveau livre, 
mais plutôt d’une mise à jour consacrée à une nouvelle machine . 


«A l'époque j'avais trouvé assez scandaleux qu'un 
erratum n'ait pas été glissé dans les exemplaires de la 
première édition car les coquilles étaient connues dès 
les premières semaines de la sortie du livre. Ce qui avait 
été fait pour le livre sur la HP28 n'a pas été renouvelé et 
donc on était en régression du côté honnêteté.» 














Concernant "l’honnêteté" de la deuxième édition : 
aucun erratum n’a été inclus dans la première édition, 
cela est vrai. Mais il est vrai aussi que, vu la 
quasi-inexistence de "bugs-reports" qui m'ont été 
adressés, ces imperfections ne devaient pas être si 
gênantes que cela. Vous sous-entendez que les 
“coquilles” vous étaient connues dès les premières 
semaines : il est regrettable que vous ne m’ayez 
jamais écrit à ce sujet (les moyens de le faire ne vous 
manquaient pas : mon adresse est connue du club et 
vous n’êtes pas sans fréquenter le magasin Maubert 
Electronic où je passe moi-même assez souvent). 
NDIJB : Peu après la sortie de la première édition, Guy Toublanc 
m'a fait part d'une discussion (entre toi et un autre utilisateur) 
ayant eu lieu chez Maubert à propos de ces bugs, alors qu'il était 
lui-même dans le magasin. Pourquoi aurait-il dû t'ecrire, puisqu'il 
a obtenu ces informations en même temps que toi ? 


«On peut constater que la liste des objets (avec les 
adresses) contenus dans la Rom a disparu par 
enchantement alors que celle des messages a été 
maintenue. Est-ce un oubli ou le temps manquait-il 
pour vérifier cette liste ou manque de place dans le 
livre ?» 


Il ne s’agit ni d’un oubli, ni d’un manque de temps ou 
de place. Après enquête auprès de plusieurs 
utilisateurs du livre, il est apparu que cette liste ne 
présentait pas d'intérêt particulier et n’a donc pas été 
reproduite dans Voyage 48 G/GX. Il s'agissait 
d’autant moins d’un manque de temps que j'ai depuis 
longtemps réalisé une série de programmes générant 
ces listes de manière automatique (en langage C, 
pour station UNIX sous X.Window). 





«Si les externals ont enfin été utilisés dans les 
programmes en langage machine (dans la troisième 
édition on était encore à faire DUP DROP en début de 
programme) ce ne sont pas toujours les plus adéquats. 
Dans ces programmes les entiers système en Rom ne 
sont pas utilisés bien que leurs points d'entrée soient 
supportés par HP.» 


L'objet des différents Voyages est la programmation 
en langage-machine. Seuls les externals les plus utiles 
ont donc été retenus et vérifiés, principalement dans 
l'optique d’une utilisation avec des programmes en 
langage-machine (en particulier les externals de 
vérification d’arguments, de conversion de type...). Il 
était donc inutile d’encombrer le livre avec des 
milliers d’adresses ne servant presque jamais. 
D'ailleurs, il existe de très bons ouvrages sur le sujet 
qu’il aurait été stupide et inutile de plagier (Les 
secrets de la HP48 de Jean-Michel Ferrard). 


«Un parti pris vis-à-vis de la documentation HP et de 
ses outils de développement qui existent et que l'auteur 
ne peut pas ignorer car étant sur la liste officielle des 


développeurs HP, il a plus que la plupart de nous des 
facilités pour accéder à cette documentation.» 


Je suis en effet "développeur officiel HP", mais depuis 
peu de temps puisque c’est grâce au livre Voyage au 
centre de la HP48 S/SX que j'ai pu le devenir. Les 
documentations auxquelles Monsieur Guy Toublanc 
fait allusion sont revêtues du "Copyright" HP et ne 
peuvent donc absolument pas être reproduite dans un 
livre. (NDJB : Le seul fait d'ecrire un livre sur les internals non 
rendus publics par des documents tels que les Goodies #4 (ou de 
publier des programmes les utilisant dans un journal tel que JPC) 
ne viole t-il pas déjà le copyright de HP ?). Elles ne 
présentent, en outre, que la programmation en 
System-RPL (qui, encore une fois, n’est absolument 
pas lobjet de Voyage) ainsi que la liste des 
instructions du Saturn (entachée de très nombreuses 
erreurs, car il s’agit de l’antique documentation du 
HP71, plutôt mal remise au goût du jour. Ainsi, tous 
les cycles-machine présentés sont faux, et ont dû être 
mesurés sur la HP48 pour Voyage, certaines 
instructions ne sont pas documentées...). 


Quant aux outils” fournis par HP, ils sont bien loin 
de valoir ceux auxquels il est fait référence dans 
Voyage (HPDS, Areuh, Satass.) et sont, de plus, 
frappés eux aussi du copyright HP. NDIJB : Ces outils 
portent peut-être le Copyright HP, mais une version d'entre eux 
est disponible et libre d'utilisation. C'est celle qui est diffusée sous 
le nom de Goodies 4, et que nous distribuons dans notre "Kit de 
développement". Même si ils ne sont pas les meilleurs, ce sont les 
outils et documentations de référence utilisés par la grande 
majorité des programmeurs au niveau mondial. Ce qui n’est pas le 
cas pour les programmes que tu cites. 


«Des programmes à revoir qu’on ne devrait pas 
retrouver sous la même forme d'une édition à la 
suivante [..]. J'ai fait allusion à de nouveaux 
programmes faits par d'autres. Certains ont des 
faiblesses de forme de programmation et je me garderai 
bien de critiquer leurs auteurs [...]. Ce que je reproche 
c’est au professionnel de ne pas avoir aidé les auteurs à 
redresser leurs maladresses ce qui aurait permis au 
lecteur d'avoir des modèles à imiter.» 


Vous critiquez à nouveau les programmes de Voyage. 
Encore une fois, j'aurais préféré recevoir à temps des 
suggestions constructives plutôt que des critiques un 
peu trop tardives. Quant aux programmes qui m'ont 
été très aimablement fournis par d’autres personnes, 
j'ai pris le parti de respecter l'originalité des ouvres 
qui m'ont été envoyées. Il est vrai que j'aurai pu 
réécrire plus ou moins partiellement ces programmes 
et me les attribuer. Mais, pour moi, ça, c’est du vol. 
NDIJB : Tu pouvais pourtant très bien le faire en mentionnant le 
nom de l'auteur original. À l'époque où tu faisais partie du club 
(et maintenant encore), cela a toujours été la rêgle. Et tout le 
monde (y compris l'auteur) était d'accord à ce sujet, car le plus 
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important était d’avoir le meilleur programme possible. Plus que 
de savoir quels étaient les apports de l'un ou l'autre sur le 
programme. Il est regrettable que tu aie oublié cette philosophie 
et que tu ne l'aie pas répercuté autour de toi. 


«Un gonflement excessif du volume du livre par des 
artifices typographiques : trop de pages avec peu de 
texte» 


Il est vrai que quelques bas de pages sont vides. Mais 
il faut savoir choisir entre une présentation claire et 
lisible et un texte tassé sans structuration. Quant aux 
blancs qui subsistent parfois, ils permettent d'insérer 
des ajouts dans des éditions futures, sans que cela 
nécessite un retirage complet de l’ouvrage (trop 
coûteux pour être accepté par un éditeur). 
Préféreriez-vous donc un ouvrage figé dans ses 
imperfections et dans ses lacunes ? C'est 
malheureusement ce qui a été le cas pour Voyage 28 
c/s, mais il est vrai que vous ne vous en êtes jamais 
plaint. 


«Les chapitres du début n'ont pas leur place dans un 
ouvrage s'adressant à des lecteurs qui veulent aller 
au-delà de ce que le constructeur met à leur disposition. 
Je ne suis pas le premier à le dire.» 


Ils sont là pour permettre à un utilisateur novice 
d'utiliser les programmes de Voyage sans même les 
comprendre, et, donc, de se familiariser avec la 


machine, Devait-on réserver Voyage à une élite 
jalouse de le rester ? 


La conclusion de Monsieur Guy Toublanc est dure : 
Voyage n’est qu'une bonne compilation 
d'informations, utile et nécessaire dans ce domaine car 
actuellement non concurencée ailleurs mais l'auteur qui 
se transforme progressivement en homme d'affaire (qui 
marche bien) pourrait lasser ses fidèles lecteurs par un 
cumul de pis aller et un manque de fini.» 


À vous entendre, on pourrait croire que Voyage ne 
contient aucune information originale, mais 
uniquement des idées et des programmes recopiés 
avec une multitude d’erreurs. Ce n’est pas vraiment le 
cas, et c’est même plutôt le contraire qui s’est 
produit : nombreux sont ceux qui ont pillé le livre 
sans vergogne.… NDJB : Guy n'a jamais dit "Voyage N'EST 
QU'UNE bonne compilation" mais "Voyage EST UNE BONNE 
compilation". C'est toi qui déforme ses propos. La preuve en est 
que par le passé, il a souvent présenté tes livres comme étant la 
référence incontournable pour ceux qui voulaient mieux connaitre 
leur machine. L'article que tu mets en cause ayant seulement pour 
but de dire qu'il regrettait que tu n'aie pas profité de la nouvelle 
edition pour corriger les quelques erreurs présentes et présenter 
de nouvelles versions de programmes qui n'ont jamais évolué. 
Quant à être un "homme d’affaire", je préfère de pas 
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répondre à ce genre d’insinuations : ceux qui me 
connaissent vraiment auront rectifié d'eux-mêmes... 


Pour finir, je voudrais juste m’étonner d’une telle 
animosité de la part d’un membre de PPC Paris : 4 
pages de critiques acerbes et seulement quelques 
mots  flatteurs… pour l’article de Wlodek 
Mier-Jedrzejowicz. NDJB : Bien sûr nous (ainsi que tous les 
autres clubs) te remercions pour la présence de cette liste des 
clubs. Mais il est vrai que par le passé, toutes les personnes 
écrivant un livre sur HP mentionnaient au moins les coordonnées 
des clubs nationaux. Ce n'est qu'une bonne habitude reprise, et 
c'est ce qu'a voulu dire Guy. Sans plus. D'autre part, aurait-il été 
normal que nous changions d'opinion sur un livre pour la seule 
raison que nous ÿ soyons cités ? Il est en outre étrange 
qu’un "critique littéraire” (NDJB : Guy n’a jamais prétendu 
en être un !) ne cite pas les référence des livres mis en 
cause, ce que je répare ici : 


Voyage au centre de la HP48 S/SX par Paul 
COURBIS et Sébastien LALANDE, 3è" édition, 
Editions Angkor, Paris. ISBN 2-87-892-003-1, 518 
pages, prix : 260 Francs. 


Voyage au centre de la HP48 G/GX par Paul 
COURBIS, 1° édition, Editions Angkor, Paris. 
ISBN 2-87-892-006-6, 618 pages, prix : 265 Francs. 


Ces deux livres sont disponibles chez Maubert- 
Electronic (Paris), dans les Fnac (en général au rayon 
librairie), ainsi que dans diverses librairies 
spécialisées. 


Paul Courbis (ex-392) 
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LA HP28S ? ENCORE ! 


La rubrique HP-28 aura été présente 12 fois sur 16 
dans JPC depuis mai 1992. Les HP-28 ne sont donc 
pas ignorées de PPC Paris même si une plus forte 
participation de lecteurs aurait été la bienvenue. 


Qu'en est-il de l'avenir des HP-28S ? 


Certains étudiants s’en contentent, car dans leurs 
études une HP48 ne leur apporterait rien de plus. 
Ceux qui font des mathématiques pures ignorent les 
résultats numériques au profit des démontrations, et 
là, nos chères machines n’ont pas conçues pour 
cela. D'autre part une partie des étudiants se voit 
interdire l’usage des calculatrices lors des examens. 
Dans ces conditions une HP-28S peut paraître 
suffisante d’autant plus que le format et le double 
clavier sont appréciables. 





Etant données les limites de la Ram, il me semble 
que le travail essentiel consiste à réaliser le maximum 
de programmes tenant le minimum de place. Pour 
cela il faut que chacun se mette au travail quelque soit 
son niveau de programmeur et son langage de 
Programmation. Ce qui compte c’est de montrer qu'il 
existe des centres d’intérêt pour chacun et que le club 
n’est pas un ensemble de fantômes. Alors manifestez 
vous comme l’a fait Paul Jebeily qui a peut-être moins 
de temps que certains (car pris par ses études) mais 
qui sait faire don de ses créations et cela sans moyens 
matériels confortables. 


Le club peut fournir des utilitaires, à la fois pour 
HP-28$ et PC, de communication à ceux qui ont une 
HP-28S connectable à un PC travaillant sous DOS. 
Une liste d'adresses compilées par mon ami Mathieu 
Clabaut peut également être fournie sur disquette. Et 
n’oublions pas les listes de mnémoniques et les 
décompilateurs de J.F Garnier qui a mis 
généreusement tout cela à la disposition de chacun. 


Guy Toublanc (276) 








A LA RECHERCHE DES 
TRESORS CACHES 


Après avoir fourni un ensemble d’outils à la fois 
classiques (mais actualisés) et nouveaux pour HP-28S 
voici le tout dernier FIND qui nous permettra de 
trouver en ROM ou en RAM l'adresse d’une suite de 
codes. 


Il existe déjà des solutions: 


- SEARCH du livre Au centre. mais en User Rpl, donc 
trop lent. 

- FINDMEM, pour HP48, de Laurent Grand (JPC 85 
pages 18-19). Réalisé en assembleur ce programme 
est donc plus rapide. 

- La méthode américaine qui consiste à mettre dans 
un entier binaire le code mais inversé. On peut y 
placer jusqu’à 15 codes car le dernier chiffre de 
lentier binaire est réservé au nombre de codes moins 
un. Si le code a été trouvé le programme renvoie 
ladresse + 1. Cette méthode présente des avantages. 
La programmation en assembleur est très simple et 
très courte car ne nécessitant pas de conversion 
ascii-hexa. Les occurences suivantes se trouveront en 
activant simplement la commande car l’adresse de 
départ (adresse trouvée + 1) est déjà sur la pile. 


C’est en adaptant cette dernière méthode que je vous 

propose FIND qui est plus simple d'emploi que son 

inspirateur. 

Syntaxe 

niveau 2 : la chaîne des codes (maximum 16 codes) 
et dans le même ordre qu’en mémoire. 

niveau 1 : l’adresse de départ 


FIND + adresse + 1 sitrouvé, sinon # 1h 


Exemple : recherche de programmes. On sait que le 
prologue est 02C67 donc en mémoire 76C20 : 


2:"76C20" 
1:# Oh 


FIND + # FOAh donc # 00FO9h 
FIND - # 11C8h donc # 011C8h 


etc. 
Certains rétorqueront qu’un maximum de 16 codes 


est trop restrictif. Je justifierai ceci par les raisons 
suivantes: 
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- Mon objectif est de rendre la recherche la plus 
rapide possible. N'oublions pas que nous aurons, 
parfois, à parcourir une grande partie de la Rom ou 
de la Ram. Le code cherché est stocké dans un seul 
registre, rendant les tests très rapides. 

-Il est souvent illusoire de chercher de longues 
séquences de code pour retrouver des programmes 
identiques à ceux d’une autre machine (HP-71, 48). 
En effet s’il est encore possible de trouver des sauts 
courts avec les mêmes offsets, en ce qui concerne les 
autres sauts ou appels de routines il est exceptionnel 
d’avoir du code identique, mon expérience dans ce 
dommaine est là pour le prouver. Il vaut mieux à 
partir des adresses fournies par FIND faire une analyse 
plus étendue mais plus nuancée en désassemblant le 
code. 


Le décompilateur MON28 de Jean-François Garnier, qui 
fonctionne sur PC, possède une commande de 
recherche de code. Il faut fournir les adresses de 
début et de fin de recherche ainsi que la suite des 
codes. Avec mon PC qui n’est qu’un 286 cadencé à 
16 Mhz, la recherche des codes 137135144 entre les 
adresses # Oh et # 40000h de la Rom se fait en 137 
secondes alors que le programme ci-dessous LFIND qui 
fait la recherche sur toute la mémoire, donc une plage 
4 fois plus importante, me donne le résultat en 30 
secondes. Aussi je préfère observer le code donné par 
le décompilateur et aux adresses fournies par FIND. 


Voici le fichier source (SPEED est intégré dans le 
programme): 





FIND 
cksum # E0C5h 126 octets 
ASSEMBLE 
con(5) #02c67 * DOCOL 
con(5) #0c3c4 * CK2NOLASTUD 
con(5) #04f3d * TOTEMPOB 
con(5) #02c96 * DOCODE 
rel(5) fin 
gosbvl #5081 * SAVPTR 
d0=(5) #fff00 * pour adr. speed 
lchex f * pour speed maxi 
datO=c 1 * speed maxi 
a=dati a * adresse 1er niveau 
adiex * à entier binaire 
do=a * @ er niveau 
lchex 02370 * prologue entier binaire 
a=dati a 
?a=c a * entier binaire ? 
goyes  binary 
errtyp Lchex 0202 * erreur : bad type 
goving #111b9 * a=c a sethex GETPTR 
* Err jmp 


binary 


ok 


Loop 


inf10 


Loop2 


nxt 


found 


a=dat1 
di=di+ 
a=a-con 
Lec4) 
?c<=a 
goyes 
c=a 
adiex 











goving 


con(5) 








found 


Loop? 


a 
#125e1 


#02f90 


* 


à valeur entier binaire 


* adresse départ recherche 


MON + * 


MO nn 


* 


Mn 


* 


MO € 


* 


* 


* 


à position départ recherche 


sauve adresse 1er niveau 
passe au 2ième niveau 
adresse chaîne 

à sur chaîne 

prologue 

prologue chaîne 
différent de chaîne ? 


à Longueur chaîne 
Long. chaîne + 5 

à début chaîne 

Long. chaîne en nibs 
maxi Long. chaîne 
Long. = minCLlen,32) 


adresse début caractères 
adresse après dernier car 
8 après dernier caract. 
nombre de caractères 
pour compteur 

compteur caractères 

Len - 1 -> cts) 


conversion 
ASCII -> HEXA 
de La chaîne 
avec er code 
en B(0) pour 
même ordre 

qu'en mémoire 


pour WP 


teste si Les 2 1ers nibs 
en mémoire sont conformes 
si oui test si l’ensemble 
en mémoire est conforme 


* si oui alors trouvé 


* 


+ + 








sinon adresse suivante 


adresse trouvée + 1 
adresse 1er niveau 
restaure di 
valeur position + 1 
GETPTRLOOP 


SEMI 
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Voici un petit programme permettant de rechercher 
toutes les occurences d’une suite de codes dans la 
mémoire: 


LFIND 
« 
HEX € } SWAP #0h 
MHILE DUP # 1h # 
REPEAT FIND ROT OVER 
1- +3 ROLLD 
END 


Il suffit de founir la chaîne des codes à chercher et le 
programme renvoie la liste des éventuelles adresses 
(adresse # Oh à éliminer). 


Guy Toublanc (276) 





CHOC EN RETOUR 
FONCTIONS GRAPHIQUES 


NDLR : 
animations”, paru dans le précédent numéro, nous était parvenu 


Le gros article de Paul Jebeilÿ "Graphisme et 


sous forme manuscrite. Il était donc malheureusement prévisible 
que quelques erreurs ou fautes de frappe nous aient échappé, 
même après vérifications. Voici done un petit correctif 


Dans MENUER du répertoire HOME : 
Remplacer MAITK par WAITK 


Dans le répertoire oBJETS du chemin € HOME GRAPH 
OBJETS }: 


- Dans INIT : 2ÈM€ ligne, remplacer 
6 cF par 64 SF 


- Dans FAMIROT : 7È" ligne, remplacer 
+ imO LCD+ par imO -LCD 


- Dans LBLOCK : 6ÈME et 11È"€ ligne, remplacer 
FORUU par FORu 


(ou supprimer un "u” aux ligne 6 et 11). 


- Dans PAR? : 1È'€ ligne, remplacer 
DUP 2 > par DUP2 > 


- Dans TEsT2 : 1° ligne, remplacer 
« 4 SPEED ... 5 ROLLD SWAP 6 par 
« SPEED ... 5 ROLLD SWAP DROP 2 SWAP 6 


Les listes VARS (et non vars:) sont obtenues par 
l'instruction Vars. Elles ne sont pas à stocker. 


Paul Jebeily (571) 

















HP48 


G. Toublanc 
G. Toublanc 
R. Pulluard 
G. Toublanc 
G. Toublanc 
P. De Sacy 
P. De Sacy 
P. De Sacy 


Le kit de connection HP48GX 
Présentation de CAT-48 

Calcul du numéro de semaine 

Calculs hyperboliques 

Trucs et astuces 

Points d’entrées correspondant SX & GX 
Cartes TDS sur le port 2 (48GX) 
Changement de répertoire (Acte II) 


Le coin des codes 





10 
10 
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12 
13 
15 
16 
18 
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NOUVEAU KIT DE CONNECTION 


Comme cela était annoncé, HP a livré aux acquéreurs 
de HP48G/X (achetées entre le 1/9/93 et le 
30/10/93) le kit de connection : 


HP 82208C Serial Interface Kit 
HP 48 to DOS-compatible PCs 


Ce kit se compose comme les précédents de deux 
parties : 


- Côté matériel: un cable de connection qui est en fait 
celui du HP100LX avec un adaptateur pour HP48 ce 
qui peut être une chose appréciable pour les futurs 
possesseurs de HP100LX. 





- Coté logiciel: une disquette qui se différencie de 
celle des précédents kits par un ensemble de 
programmes pour PC et permettant d'utiliser sous 
Windows des objets graphiques HP48 et seulement 
dans le sens HP48-PC. Ceci peut être utile par 
exemple pour des publications relatives aux HP48. 


Pour le reste, pas de nouveautés si ce n’est que les 
utilitaires HP (INPRT, USAG etc.) sont bien compatibles 
pour les HP48 séries S et G, donc une très bonne 
chose. 


Pour les communications HP48—PC ce sont toujours 
les programmes avec le protocole Kermit, donc rien 
pour Xmodem. 


Si ce kit a vu le jour au moment de promouvoir la 
vente des HP48G/X, il reste aussi utile pour les 
HP48S/X. D'ailleurs le programme d'installation 
propose deux options S ou G. L'option S permet de 
charger des programmes utilisables sur HP48S/X 
mais devenus inutiles avec les toutes nouvelles 
instructions des HP48G/X. 


Pour ceux qui possèdent les anciennes disquettes et 
en particulier celle de la précédente opération Back 10 
School et qui n’ont pas la nécessité d'utiliser sur PC 
des objets graphiques HP48, je ne vois un intérêt que 
pour les utilitaires HP devenus compatibles 
HP48G/X. 


Guy Toublanc (276) 


LITTERATURE POUR HP48 


CAT-48 


Notre ami Robert Pulluard est un lecteur assidu des 
journaux de liaison des clubs HP et aussi un auteur 
idéal pour répertorier les programmes parus dans ces 
journaux. Il a donc réalisé un catalogue de 
programmes HP48 et cela depuis avril 90 (mon 
exemplaire contient 528 entrées). Chaque programme 
est décrit méthodiquement avec les références qui 
s'imposent. Les publications sont essentiellement (ou 
presque) européennes mais vont de la Suède à 
l'Espagne. Cela permet d’avoir un aperçu de ce qui se 
fait parmi les clubs qui publient et jouent donc un 
rôle pédagogique dans le milieu HP48. 


C’est un catalogue rédigé en anglais et réalisé avec 
tout le sérieux de Robert. Aux descriptions on peut 
ajouter : 


- Un index des auteurs. 

- Un index d’équivalences lorsque les programmes 
ont été publiés par plus d’un club. 

- Une liste d’adresses des publications. 

- Un index alphabétique et détaillé par thèmes. 

- Un index regroupant les programmes par thèmes 
généraux. 


A partir de ce catalogue on pourrait établir des 
statistiques sur les thèmes abordés et une dure 
réalité : le taux de participation dans les clubs. 


On peut se procurer cette publication contre un 
chèque de 40 F français adressé à : 


Robert Pulluard 
Lijsterlaan 31 
2665 TH BLEISWIK 
Pays-Bas 


Ce catalogue est actualisé périodiquement et cette 
entreprise mérite notre reconnaissance. 


Guy Toublanc (276) 














NUMERO DE SEMAINE 


Le petit programme pour HP48 présenté ici a pour 
but de fournir, à partir d’une date introduite au 
niveau 1 de la pile opérationnelle, le numéro de la 
semaine correspondante dans l’année, selon les 
normes ISO (Organisation Internationale de 
Standardisation), et notamment le document ISO 
8601, section 3.17, qui précise que la semaine 
commence un lundi et que la première semaine de 
l’année (semaine No.1) est celle qui contient un jeudi. 


Ce numéro de semaine dans l’année se rencontre 
dans certains agendas (pas toujours selon les normes 
ISO), et est utilisé dans certains pays, tels que la 
Suède. Il peut donc s’avérer intéressant de mettre à 
profit les fonctions sur les dates, dont est pourvue la 
HP48, pour disposer de cette information d’une 
manière simple et rapide. 


Le programme NSEM accepte comme argument : 

- soit une date au format "européen" (jmmaaaa), si 
l'indicateur binaire -42 est armé ("set"), 

- soit une date au format américain (mm.jjaaaa), si 
l'indicateur binaire -42 est désarmé ("clear"), 

- soit 0 (zéro), auquel cas c’est la date courante, prise 
dans l’horloge interne de la HP48, qui est utilisée 
comme argument. 


L’algorithme utilisé est relativement simple : à partir 
de la date argument on détermine d’abord la position 
du jour dans l’année. C’est le rôle des trois premières 
lignes dans le listage du programme (pour être 
rigoureux il faut tout de même préciser que la valeur 
calculée est n+2, n étant ici le numéro du jour en 
question). C’est dans cette partie qu'est détectée la 
présence éventuelle d’une valeur nulle comme 
argument (commande 1FT au lieu d’une structure 
CIF...THEN...END]) : dans ce cas, l'instruction DATE 
prend la date courante dans l’horloge interne de la 
HP48. 


Les trois lignes suivantes déterminent, par accès à la 
chaîne de temps ("timestring"), le jour de semaine 
correspondant au premier janvier de l’année. C’est en 
fait le numéro p du jour dans la semaine qui nous 
intéresse ici, et la méthode utilisée consiste à 
convertir bêtement le nom anglosaxon de ce jour, tel 
que fourni par la chaîne, au moyen d’une liste de 
correspondance. 


Ceci fait, il ne reste plus qu’à combiner les résultats 
partiels obtenus, à savoir (7 +2) et p, en calculant : 


r = (p-4) MOD 7 


puis en prenant la partie entière de: 
s = ((n+2) + r)/7 


C’est ce que fait la dernière ligne du listage. 


NSEM 

Cksum: # 9300h 167 octets 

« 

DUP NOT €DROP DATE } IFT 
-2 ALOG MOD LASTARG ROT + 
1 + DUP ROT DDAYS 3 + 

MED“ MTHUM 
SUN“ 3} ROT 
3 suB Pos 





O TSIR 1 
& - T7 MOD + 7 / 


FLOOR 


Utilisation du programme NSEM : 





= NSEM 1isemaine 
= NSEM + 1:sem_courante 
Exemple: 
1:6,111993 + NSEM — 1:66 


Quelques remarques additionnelles : 


Les trois premières lignes du programme ont été 
optimisées et sont donc quelque peu cryptiques : le 
mieux est de les exécuter pas à pas pour comprendre 
leur fonctionnement exact. Le reste du programme 
n’a pas été optimisé, cet exercice paraissant illusoire 
quand on est confronté au gros morceau que 
représente la liste des noms de jour de semaine. Pour 
raccourcir encore ce programme, la seule solution me 
semble être de se débarrasser de cette liste et de faire 
appel à une autre méthode pour déterminer la valeur 
‘p' du premier jour de l'année. Une possiblité est 
évidemment de faire tout simplement appel à une 
routine DO (Day Of Week) si vous en avez une à 
votre disposition ou, moins direct, de passer par la 
date julienne (si vous avez des programmes 
d’astronomie, vous devez alors avoir une telle routine 
parmi vos utilitaires). 


Quoiqu'il en soit, si un lecteur connaît le moyen de 
résoudre ce problème du jour de semaine de manière 
simple et élégante, sans faire appel à un 
sous-programme extérieur, qu’il n’hésite pas à le faire 
connaître ! 


Robert PULLUARD (561) 
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SOS : 
41 APPELLE 48 


Il est courant que des utilisateurs de machines HP 
soient plus ou moins désarmés en passant d’un 
modèle à un autre plus évolué. Ici c’est le cas d’un 
utilisateur de machine qui est passé d’une machine 
HP antérieure au modèle HP-41, à une HP-41 puis 
une HP48. Pour lui venir en aide, il nous demande de 
traduire le programme HP-41 ci-dessous en 


programme HP48 : 

01 LBL HYPERB 16 X°2 31 STOP 
02 RCL 03 17 RCL 04 32 RCL 04 
03 x”2 18 * 517 

04 RCL 01 19 RCL 03 34 + 

05 x”2 20 x”2 35 SORT 
06 - 21 36 RCL 05 
07 RCL 02 22 RCL 04 37 * 

08 x”2 23 / 38 STO 07 
09 RCL 00 24 SORT 39 STOP 
10 x°2 25 STO 05 40 RCL 07 
qu 26 STOP 412 

12/ 27 RCL 05 42 * 

13 STO 04 28 2 #3 STO 08 
14 STOP 29 * 4h STOP 
15 RCL 02 30 STO 06 45 END 


Celui-ci doit permettre de tracer des hyperboles pour 
la réalisation d’un cadran solaire. 


Au vu de ce listing on voit que les possibilités d’une 
HP-41 ne sont pas utilisées de manière très optimale, 
qu’il s’agit plutôt d’une programmation utilisée sur 
une machine plus ancienne où les commandes 
d'entrée et de sortie n’existaient pas car les données 
doivent être stockées dans les registres avant le 
lancement du programme et les résultat sont lus 
simplement à chaque arrêt du programme qu’il faut 
relancer par séquences. 


Il s’agit donc à partir des données : 
Xi Y X2 Y 


de trouver les valeurs: 








a tel que a = 


© tel que c = a/t1 + K2) 





a et c étant respectivement la distance de l’origine des 
axes au sommet de l’hyperbole et la distance du foyer 
à cette origine. 


Devant les difficultés d’adaptation de notre 
programmeur la méthode à adopter est celle d’une 
programmation de type algébrique en reproduisant 
les formules. Ici je ne chercherai pas à optimiser mais 
à rester très simple en traduisant le programme 
HP-41. Je simplifierai quand même la formule de a : 


a= Jo - y?) 
Voici le programme HP-48 : 


HYPERB 
Cksum #E293h 394 octets 


« "x1,y1,x2,y2 ?" arguments demandés 
mu chaîne vide pour L'entrée 


par défaut 

INPUT demande d'entrée de valeurs 

OBJ-+ extrait Les objets entrés 
c'est-à-dire x1,y1,x2,y2 

0 valeur pour K 

0 valeur pour a 

0 valeur pour © 


ces 3 valeurs ne sont 
utilisées que pour La 
création de varables Locales 
RCLF rapelle La Liste contenant 
Les flags système, Liste qui 
sera sauvegardée dans !F' 
ces 8 valeurs de x] à RCFL vont être 
sauvegardées dans Les 8 variables Locales 
ci-dessous : x1 à F et cmprises entre + 
qui indique que Les valeurs avant sont 
stockées dans Les variables correspon- 
dantes (dans Le même ordre) et /«’ qui 
marque Le début de La séquence de 
programme avec ces variables Locales 
-x1yiy2y2kacr 
< 1 (y2"2-y1"2)/02"2-x172)" EVAL 
formule de K2 puis valeur numérique 
fournie par EVAL 
:K2* STO sauvegarde de k2 dans La 
variable Locale (v.L) K2' 
1/0272-y2"2/K2)' EVAL 
formule de a puis valeur numérique 
‘a! sTo sauvegarde de a dans La v.l a’ 
ta*/C1#K2)' EVAL 
formule de c puis valeur numérique 
!c! STO sauvegarde de a dans La v.l ’c’ 
pour L'affichage des résultats 
chaine "K2 = nnnnn“ pour 








affichage 
chaîne commençant par NEMLINE 
a = Di avant ‘a’ : "a = n.nnnn" 
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+ ajoute Les 2 chaînes qui sont 
séparées par NEMLINE 


ce =c+ même principe pour "c = n.nnnn" 

+ somme des 3 chaînes avec 2 
NEMLINE 

“ 

Za=" 

a2t* “2a = n.nnnn" 

+ somme des 4 chaînes et 3 NEWL. 

“ 

2c=" 

ee." “2c = n.nnnn“ 

+ ici nous avons 5 chaînes 
assemblées avec 4 NEWLINE 
intercalés 

F STOF on restaure Les flags système 

» fin de l’environnement des 
variables Locales qui sont 
détruites 

CLLCD efface l'écran 

1 DISP affiche à partir de La Ligne 
1 La chaîne qui va donner 5 
Ligne de résultats 

7 FREEZE gèle L'affichage de tout 
l'écran 

» 
Exemple: 
pour 

X= 40,52 

Y1= 29,31 

% = 127,72 

Ya = 246,76 


lancer HYPERB 
A la demande des arguments, taper sur une seule 
ligne ces 4 valeurs séparées par un espace et valider 


avec [ENTER] 


l'affichage fera apparaître : 





K2 = 4.0920 

a 37.8408 
€ 85.3894 
2a = 75.6817 
2c = 170.7787 


On voit qu'avec ce type de programmation cela est 
même plus simple qu’avec le programme HP-41 et 
aussi plus compréhensible car les formules sont 
traduites naturellement. Nous n’avons pas utilisé de 
mouvements de pile, nous contentant de stocker les 
résultats dans des variables locales qui sont ici 
léquivalent des registres de la HP-41 mais rendent la 
programmation plus facile car nous pouvons leur 


donner des noms plus évocateurs que RO0, RO1 etc. 
Le rappel des flags système est destiné à pouvoir 
restaurer les modes de la HP-48 avant le lancement 
du programme (par exemple si l’on était en mode sTD 
au lieu de Fix 4). Cela évite de le faire manuellement. 


Aux possesseurs de HP-41 et HP48 (ou HP28) je 
conseille de traduire leurs anciens programmes et de 
ne pas se contenter d'utiliser ceux-ci sur une HP48 
avec émulateur HP-41. Leur effort sera payé par un 
gain de rapidité et de confort. 


Ces adaptations seront les bienvenues dans les 
colonnes de JPC car les programmes résultants 
résoudront certainement des problèmes pratiques à la 
portée de beaucoup. 


Guy Toublanc (276) 


TRUCS, ASTUCES ET 
PETITS UTILITAIRES 


Je ne comprends pas pourquoi cette rubrique n’a été 
alimentée que par moi. Elle devrait permettre à 
beaucoup de participer car elle ne doit recevoir que 
des petits travaux, parfois même que des idées. Elle 
est accessible à tous, une simple feuille de papier et 
une dizaine de lignes écrites à la main sont un moyen 
souvent suffisant pour faire part de vos... 

trouvailles simples mais utiles que ce soit côté 
matériel ou logiciel. 

éclairs de génie ou pas qui simplifient la vie. 
corrections des petites erreurs des autres. 
écouvertes de sysevals. 

….petits utilitaires en User Rpl et même en System 
Rpl ou assembleur (pourquoi pas ?). 





Ici on ne reçoit pas que les programmes. Les idées 
comptent autant. 


Avec l’arrivée des HP48G(X) il y a tout un terrain qui 
est vierge. Les menus déroulants et boites de 
dialogues c’est bien, mais je préfère un raccourci 
clavier. Donc de ce côté il y a des découvertes à faire. 
De même il serait utile de signaler les changements 
entre HP-48G(X) et HP48S(X) au niveau de l’accès 
aux commandes de façon à éviter les tatonnements 
pour ceux qui avaient des habitudes et qui ont des 
problèmes d’adaptation. Il y encore beaucoup de 
petites questions qui demandent des réponses 
simples. 
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La rubrique des lecteurs est à la disposition de tous 
pour poser des problèmes. S'il y a réponse cela 
pourrait très bien se faire ici. 


Correction de 2 erreurs 
Auto-correction de deux de mes bétises. 


Pour récupérer les mnémoniques HP correspondant à 
des adreses en Rom je proposais un mini programme 
MNEMO dans JPC 88. Je m'étonne de ne pas avoir 
provoqué de réactions car ce programme est inutile. 
En effet la librairie -RPL- fait cela avec E—A et comme 
l'indique le label dans les sens mnémonique - adresse 
et adresse + mnémonique. Donc une grosse faute 
d’étourderie de ma part pour ne pas avoir lu 
complètement le mode d'emploi de RPL Toolkit. 
Débarassez vous de MNEMO. 


Deuxième faute à propos de l’article Transferts plus 
rapides sur HP-48G(X) (JPC 89 page 8) il y a plus 
simple que ce que j'avais indiqué. Côté HP48 pour 
l'envoi sous protocole XMODEM il suffit que le 10PAR soit 
configuré avec 9600 Bauds. xSEND ou XRECEV ne servant 
qu’en mode XMODEM pour envoyer ou recevoir des 
objets HP48 en mode binaire. Donc il est inutile de 
passer par le menu déroulant pour configurer et si 
lon fait une transmission par cable à 9600 Bauds on 
peut alternativement utiliser XMODEM et KERMIT, ce 
dernier protocole s’utilisant avec SEND et RECEV. La 
connaissace de la boite de dialogue n’est peut-être pas 
complètement inutile pour connaître les paramètres 
de xMoDEM sur HP48 mais elle ne doit être considérée 
que comme un pense-bête en cas de perte de 
mémoire. 


Compatibilité Kermit et Xmodem 


Un objet transféré depuis une HP48G(X) sous un des 
protocoles Kermit ou Xmodem est-il récupérable 
dans un transfert en sens inverse et sous l’autre 
protocole ? Le problème se pose si vous récupérez 
des objets sauvegardés par un tiers sur disquette et 
dont vous ignorez le protocole utilisé. 


Tout d’abord si on transfère en mode binaire et sous 
les deux protocoles un objet HP48 on constate que 
loccupation dans le PC n’est pas la même. 


Ici, pour le protocole Kermit, n’est examiné que le 
transfert en mode binaire. 


- HP48/kermit + PC 
PC/Xmodem - HP-48 : compatibilité 


- HP48/Xmodem + PC 
PC/Kermit + HP-48 : incompatibilité apparente 





Dans ce dernier cas par exemple un objet binaire de 
819 octets et autre qu’une chaîne revient sous forme 
de chaîne de 901 octets avec l’entête Kermit HPHP-M. 
Donc il y a un problème. Dans ce cas il existe deux 
solutions: 


- Réitérer le transfert mais sous Xmodem si vous en 
avez encore la possibilité. 

- Extraire de la chaîne l’objet d’origine. C’est ce que 
fait le petit programme ci-dessous. 


syntaxe: 
niveau 1 : chaîne XMOD-KER - objet récupéré 


XMOD-KER 
62.5 octets cksum # BB7Bh 


CKiNoBlame CK&DISPATCHO str 





CODE 
gosbvl  =SAVPTR 
a=dati a * adresse chaîne 
dia * a sur chaîne 
di=di+ 5 * à sur Longueur 
c=dati a * Longueur totale 
disdis 5 * départ codes chaîne 
c=c-con a,6 * Longueur en quartets 
d=c a * compteur quartets ch. 
Le(5)  =PRLG * début à L'adr. prolog. 
out * sortie si chaîne nulle 
Loop a * pope 5 quartets 
* à sur adr en Rom ? 
a * pope PRLG si adr prol. 
a * est-ce PRLG ? 
cont * non alors on continue 
* oui alors adr. objet 
gonc out * et sortie 
cont di=dit 1 * 8 quartet suivant 
d=d-1 a * actualise compteur 


gonc Loop * non fin: + 1 tour 
out govlng =GPOverWrALp * GTPTR + dati=a + Loop 


ENDCODE 
TOTEMPOB 


XMOD-KER utile aussi pour HP-48S(X) 
et encore pour HP48G(X) 


Si un objet binaire a été transféré dans votre HP48 
sous Kermit et en mode Ascii vous récupérerez une 
chaîne. Il se peut très bien que vous n’ayez plus la 
possibilité de refaire le transfert (par exemple le 
copain étourdi qui vous a gratifié de ce cadeau bizarre 
n’est plus là) alors XMOD-KER est tout indiqué pour vous 
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restituer l’objet perdu dans la chaîne (voir ci-dessus la 
syntaxe). 


Xmodem pour HP-48S(X) 


Je signale que les possesseurs de HP48S(X) ont la 
possibilité de transférer des objets entre HP48 et PC 
à l’aide de la librairie XYMODEM.L18 des goodies disk #7 
(répertoire UTILS). Une documentation est présente. 
Pour ma part je l’utilise avec le setup par défaut (de 
la librairie) et de la même manière qu’avec Xmodem 
de la HP48G(X) à la différence que l'objet est sur la 
pile, soit à l'envoi où à la réception. Voir l’article 
transferts de fichiers (JPC-89) et ci-dessus pour la 
rectification. 


C'est tout pours cette fois, en espérant que mon appel 


du début de cet article aura été bien entendu et 
compris. 


Guy Toublanc (276) 


POINTS D’ENTREES SX OÙ GX ? 


Vous voulez écrire des programmes assembleur 
compatible entre GX et SX... voici de quoi vous aider. 


La liste qui suit se compose de quatre colonnes : 


- la première contient les diverses informations des 48 
que l’on trouve en RAM (Le libellé étant celui que 
nous pouvons trouver dans Voyage au centre de la 
HP48). 


- les deuxième et troisième contiennent les adresses 
en RAM pour, respectivement, la SX et la GX de ces 
informations. 

- la quatrième contient les adresse dans la ROM des 
deux machines ou l’on trouve l’adresse des colonnes 
deux et trois en fonction du modèle. 


Il suffit donc de remplacer, par exemple : 


D0=(5) #7050E 


A=DATO A pour la SX 
DO=(5) #80680 
A=DATO À pour la GX 


par 


DO=(5) #12D21 


A=DATO A 
DO=A 
A=DATO A pour la SX et la GX 
Toutes les adresses de la quatrième colonne 


pourraient changer dans une future version de la 48, 
je ne peux rien garantir !!!! 


Toutefois n’ayant pas changé entre les version D et M 
(versions de mes 48), il y a peu de chance qu’elles 
change tout d’un coup. 


Tout programme écrit de cette facon a plus de chance 
de fonctionner dans les versions future des GX... car 
si le bugs de la GX faisant que le port 33 d’une carte 
4Mo n’est pas accessible est corrigée, la plupart des 
adresses de la GX risquent d’etre décalées. 


Libellé sx Gx ROM SX&GX 
CMOS word 70000 80000 01192 
préparation affichage 7008C 80092 

cartes enfichées 7008 800E1 

données buffer 7O1FC 80319 

Infos carte 1 7042C 8052F 09884 
Infos carte 2 70437 80531 

adr. fin port 0 7064D 80536 

adr. fin port 1 70452 80538 

adr. fin port 2 70457 80540 
sauvegarde pour Les INT 7045C B05DB sur(4) 00064 
masque de sortie clavier  704C3 80642 0188F 
vitesse machine 704D6 80655 017CA 
keystart TOLEA 80669 O47DF 
keyend TOGEB B066A 04725 
buffer clavier TO4EC 80668 

adr. bitmap ecran 7050E 8068) 12021 
marge droite 70513 80692 12046 
adr. bitmap menu 70516 80695 sur(4) 01CA3 
marge gauche 70518 8069A 12F73 
adr. GROB menu 70551 80600 1264 
adr. GROB pile 70556 80605 12516 
adr. GROB courant 70558 806DA 01F79 
adr. GROB non visible 70560 B06DF 12F11 
adr. GROB graphique 70565 806E4 1266C 
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adr. debut objet temp. 7056A 806E9 060CB dernier numéro d'erreur 706FF 8087D 13FF9 


adr. fin objet temp. 7056F BOGEE O60DC pos du curseur ds Ligne 70704 80882 11189 
adr. deb.mem Libre (sauv B) 70574 806F3 O05FBC pos Vert. à L'ecran 70709 80887 13F4E 
adr. fin mem Libre (sauvD1) 70579 806F8 034F0 pos Horiz. à l'ecran 7070E 8088C 13C22 
adr. ligne de commande 7057E 806FD 03159 curseur visible 70710 8088E 13072 
adr. pile d'undoë&var locale 70583 80702 04E68 code ascii car sous curseur 70711 8088F 13BE2 
adr. données boucles int. 70588 80707 04E73 GROB car sous curseur 70713 80891 13064 
adr. environment temp. 70580 8070C 04817 pos Horiz curseur en pixels 70738 80889 13C36 
adr. répertoire HOME 70592 80711 O8DA6 pos Vert curseur en pixels 70740 BOBBE 13C18 
adr. port 0 70597 80716 0A089 
adr. dir courant 7059C 80718 08609 sauvegardes pour garb coll 70750 808CE 06142 
adr. stock dir ptr 705A1 80720 O7A2E 
adr. touches utilisateur 70546 80725 09739 indicateur mode Alpha 70793 80911 11508 
adr. alarmes 705AB 8072A 01372 indicateur mode Prg 70794 80912 11518 
adr. objet à executer(s.D0) 70580 8072F O5FE1 
offset menu courant 707C9 80967 4184F 
dernier offset menu 707D3 8099 41875 
pile de Last 7058A 80739 112F3 nb de Lib presentes 70709 80943 0843C 
adr. grand entier 70503 80752 15ADE 
Si certains de vos anciens programmes sur SX 
utilisent par exemple les drapeaux de la 48 comme 
pile de commande 705DD 8075C 18249 suit : 
DO=(5) #70604 (@ des drapeaux -60 à -64) 
adr. message d'erreur 70600 8077F O4EOE A=DATO 8 
adr. app display 70605 80784 38C0F ?ABIT=1 0 
adr. app key 7060A 80789 38C3F GOYES  [Apha] Lock 
adr. app exit cond 7060F 8078E 38C6F 
adr. app error 70614 80793 38C9F L'adresse #706D4 n’ayant pas de pointeur en Rom, il 
est possible de faire : 
menu courant 7061E 80790 41898 
dernier menu 70623 807A2 419E8 DO=(5) #537E3 (a de l’a des drapeaux système) 
A=DATO A 
unshift menu key rout 70637 80786 41918 DO=A 
Left shift menu key rout  7063C 80788 41948 DO=D0+ 15 (@ des drapeaux -60 à -64) 
right shift menu key rout 70641 807C0 41968 A=DATO B 
Revieukey 70646 B07C5 41988 ?ABIT=1 0 
adr. Last menu VAR 70648 BO7CA 41408 GOYES [Alpha] Lock 
exit action 70655 80704 41908 
numéro de commande 7065A 80709 18814 Pierre Silvestre de Sacy (572) 
dernier token RPL 7065F 807DE 40A76 
adr. fin de RAM 70669 BO7EB OA672 
mémoire Libre (sauveg. D) 7066E B807ED 05530 
prochaine erreur à aff. 70673 807F2 OCF3 EXTENSION DU PORT 2 
flag ATTN 70679 807F7 01888 
FIRSTPROC 7067E 807FC 
drapeaux internes 70683 80801 53B4A 


Ce programme permet d’utiliser les cartes TDS de 
taille de La pile 7069F 8081D 113C9 256 et 512 ko dans le port 2 de la HP48GX. 
racine nombre aleatoire 706A4 80822 2AFD2 

La librarie SWITCH marche pour les GX lorsque la 


indicateurs 706C3 80841 01426 carte et en port 1, mais il n’est pas possible de 
drapeaux systeme 706C5 80843 537E3 lutiliser dans le port 2. 
drapeaux utilisateur 70605 80853 53707 

Pour pouvoir changer de banc, les cartes TDS 
caractere à gauche 706E7 80865 11439 comportent un circuit qui controle les accès en lecture 
nbr de Lignes TO6EC 8086A 11429 de la HP sur la carte et qui est chargée de changer le 
N° ere Ligne 706F6é 80874 113E9 banc accessible. 











—— JPC 91 Page 16 








Quand on lit sur le champ B aux adresses : 


HXFFFA #XFFFE #XFFFE #XFFFE 
#xFFFC #xFFFE #XFFFC #xFFFC #x0010 
- on passe sur le banc 1 


#XFFFA #xFFFE #XFFFE #xFFFE 
#xFFFC #XFFFE #xFFFC #XFFFE #x0010 
- on passe sur le banc 2 


#XFFFA #XFFFE #XFFFE AXFFFE 
HxFFFC HXFFFE #XFFFE #xFFFE #XFFFC #x0010 
- on passe sur le banc 3 


#XFFFA #XFFFE AXFFFE #xFFFE 
#XFFFC #xFFFE #xFFFE #xFFFC #x0010 
- on passe sur le banc 4 


Où le x correspond au quartet de poids fort de 
l'adresse de fin de carte (x=8 pour une carte allant de 
#80000 à #BFFFF, x=F pour une carte allant de #C0000 à 
AFFFFF). 


Ce programme marche comme le BANKN de la librairie 
SwiTcH, sauf qu’il fait d’office un arrêt systeme apres le 
changement de banc. 


De plus il peut être stocké dans la carte sur laquelle 
s’effectue le Switch car la programme est recopié en 
RAM avant d’être exécuté. Attention, il vaut mieux 
avoir une copie de ce programme dans chaque banc, 
ou l’on risque de ne plus pouvoir revenir dans les 
autres bancs. 


BANKN2 
(2: numero de port, 1: numero de banc) 





cK28Dispatch 

CL 
COERCESWAP 
COERCESWAP 


OVER 
PORTSTATUS 
SUNROLL 
3DROP 

NOT 

IT 





3DROP 
#1= 
ITE 
gun 
$ man 


$ "No card in port " 
SUAP 
&s 
DOCLLCD 
DOSEXIT 
CODE 
D1=D1+ 10 
GOSBVL  =SAVPTR 
D1=01- 10 
A=DATT A * à Extended Pointer 
5 
10 
# * si nul > pas de carte 
GOYES  CART 
GOTO FIN 
CART RI=A.F A * à debut port 
D0=D0+ 
A=DATO À * à routine deconfig 
ST=0 0 
?A=0 À 
GOYES  CARTE.PORTI * si nul > port 1 
ST=1 0 * port 2 
CARTE .PORT1 
Di=D1+ 5 
A 
5 
A * numero banc 
A 
SAUTE .PROG 
* programme 
* de switching 
GOS8VL #01115 * interdit interruptions 
2ST=0 0 
GOYES  NODECALAGE 
P= 0 
GOSBVL #7073F * si port 2 déconfiguré 
NODECALAGE 
DO=(5) #FFFFA * première 
C=DATO 8 * partie 
DO=D0+ 4 * de switching 
=DATO 8 * commune 
B * a tous 
8 * Les bancs 
2 
8 
2 
8 
A 
A 
A 
BANC2 
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DO=D0- 2 * banc 1 
C=DATO B 

C=DATO 8 

GOTO FIN_SWITCH 


BANC2 





GONC BANC3 
DO=D0- 2 * banc 2 


C=DATO 8 
GOTO FIN_SWITCH 


BANC3 A=A-1 A 
GONC BANC4 
C=DATO 8 * banc 3 


C=DATO B 
GOTO  FIN_SWITCH 





BANC4 A 
FIN.B * banc incorrect 
8 #* banc 4 
D0=D0- 2 
C=DATO 8 
FIN_SWITCH 
DO=(4)  #0010 
C=DATO 8 
FIN. 
?2S1=0 0 
GOYES  NOINSTALL 
= 1 * si port 2 reconfiguré 
GOSBVL  #7073F 
NOINSTALL 
GOSBVL #010E5 * autorise interruptions 
FIN 
GOVLNG  =GETPTRLOOP * retour RPL 
SAUTE .PROG 
D1=(5) #800F5 * recopie Le 
C=RSTK * prog dans buffer 
DO=C * de transfert 
LCHEX  OOOCE 
GOSBVL  =MOVEDOUN (#0670C) 
GOVLNG #800F5 * puis y saute 
ENDCODE 
DROP 
PTR 21B4E * Arrêt Système 
TOTEMPOB * Copie en RAM 
EVAL 


Pierre Silvestre de Sacy (572) 





GO : LE RETOUR ! 





Voici une nouvelle version du programme 60 paru 
dans le JPC du mois de Février. 


Je rapelle que ce programme recherche dans 
larborescence une variable. Si elle la trouve, le 
répertoire contenant cette variable devient courant, 
sauf si cette variable est un répertoire auquel cas c’est 
lui qui devient le répertoire courant... 


Cette version fonctionne sur SX et sur GX, de plus 
elle ne bugge plus comme la première qui ne 
fonctionnait pas quand la variable recherchée était 
dans le repertoire HOME. Maintenant le recherche 
s'effectue en partant du répertoire courant et en 
remontant les répertoires tant que l’on n’a pas trouvé 
la variable dans tous les répertoires fils de celui dans 
lequel on est, jusqu'a ce que l’on ait atteint le 
répertoire HOME. 

ck1&Dispatch 
Six 


CODE 
GOSBVL  =SAVPTR 


* debut nom recherché 


* nombre de sous-repertoires 
* à à rep. courant 





* à rep. courant 
BOUCLE 
A,16 * constante 

#0BDA6 * à à rep. HOME 


A 
A * à rep. HOME 
5 
A 
NOTHOME 
* on est dans HOME 
x 
* saute 
A # Libs 
A * attachées 
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A=A+A 
ASA+C 
ASA+B 
A=A4CON 
CDOEX 
AA+C 
DO=A 
GOTO 


NOTHOME 
ST=0 
A=A+CON 
DO=A 
CTHOME C=DATO 
?C#0 
GOYES 
GOTO 


NOFIN C=C+A 


81 DO=C 
A=0 
A=DATO 
C=R1 
?A#C 
GOYES 
GOTO 
Mv ASA+A 
?A=0 
GOYES 
A=A+CON 


s1 


A=A+CON 
CDOEX 
A=A+C 
DO=A 
A=DATO 
B=C 
LCHEX 
?A=C 
GOYES 
NOTADIR 
c=8 
NF DO=C 
DO=D0- 
A=DATO 
?A=0 
GOYES 
CDOEX 
C=C-A 
GOTO 


DIR  C=R2 


NOFIN 
FIN 


wo ww >» 


BON? 


A 


st 
A2 


02A96 


DIR 


* 


* 


* 


* 


* 


* 


* 


on est pas dans HOME 


saute LA Lib attachée 


offset dernier objet 


plus d'autres objets 


taille du nom 


si Les tailles sont # 


est-ce Le bon ? 


si nom vide 


alors La taille n'est comptée 


qu'une fois 


prologue de L'objet 


si c'est un rep. 


prochain objet ? 


on recommence L'analyse 


FIN? 


s3 


FIN 


UPDIR 


BON? 








ASRO.F 
GOSBVL 
C=RO.F 
2A#C 
GOYES 
LCHEX 
A=C 
GOSBvL 
GOVLNG 


RO=A.F 
GOTO 





A=DATO 
C=DAT1 
?A=C 
GOYES 
A=0 


> > ©» > 


NOTADIR 


UPDIR 
00204 

A 
=GETPTR 
=Errjm 


A 
BOUCLE 


PBN 
BON 


* 


* 


* 


* 


* 


* 


* 


* 





* 


* 


on descend dedans 


rep. vide 


on analyse ce rep. 


si dans rep. d'origine 
sinon 

ce ne peut pas etre 
HOME donc 

une seule Lib attachée 


nom vide 


taille une seule fois 


on continue 


rep. d'origine 
UPDIR 


si inchanger > HOME 


nom pas trouver 
Erreur 


rep. d'au dessus 
on recommence 


si nom vide > trouve 


taille > 7 


p = nombre de quartets du nom 


si meme 
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A=DATO 8 











P= 0 
GOTO HV 
+7 ADOEX 
R3=A A 
DO=A 
ADIEX 
R&=A À 
D1=A 
83  C=C-CON A,16 
MV2. GOTO  MV2 
BON P= o 
A 
=DATO 8 
AAA A 
A0 A 
GOvES s2 
ASA+CON A,2 
s2 
LCHEX 0296 
2A#C A 
GOYES  MVD 
DF CDOEx 
D0=(5)  #086D9 
A=DATO A 
DO=A 
DATO=C A 
Gos8vL 
Bé  C=C-1 À 
Ps O0 
A=DATO WP 
C=R3 A 
Do=C 
C=DATT WP 
AC WP 





* ce n'etait pas celui-la 


* sauvegarde DO 


* sauvegarde D1 


* taille - 8 


* debut pareil ? 


* toujours taille > 8 ? 


* si ou 


#* (saut trop Long ) 


* si nom vide 


* taille une seule fois 


* est-ce un rep. 


* rep. trouvé 


* devient rep. courant 


2GETPTRLOOP * retour RPL 


* p = nombre de quartets du nom 


* restaure DO 


* si bon nom 











GOYES BON 
MV2 C=Ré A 
D1=C * restaure D1 
0 
A 
A=DATO B 
GoTO Mv #* on continue 
MD C=B A 
D0=C 
C=R2 A 
2C#0 A 
GOYES NBDR  * on est pas dans Le rep. 
courant (celui pointé par 
* RO) 
0 
NBDR  * on est pas dans HOME 
#08DA6 
A 
A 
* c'est HOME 
DF 
NBDR DO=D0- 5 
A=DATO A 
24=0 A * derniere objet du rep. ? 
GOYES  BDR 
CDOEX 
C=C-A A 
CDOEX * prochain objet 
GOTO  NBDR 
DR 13 #* à debut rep. 
DF 
ENDCODE 
DROP 


Pierre Silvestre de Sacy (572) 


/ 
C est malin ! 


€ 4 
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ESSAI DU DRIVE95 
SUR LE HP95LX 


NDLR : Bien que le DRIVE9S soit présent sur le marché (chez 
Maubert) depuis une assez longue période, ce produit revient dans 
l'actualité puisque il est commercialisé depuis peu de temps dans 
les FNAC. Cela est donc une bonne occasion d'en faire une petite 
présentation, puisque nous avions omis d'en parler en détail lors 
de sa sortie. Cet article peut paraitre un peu fastidieux pour les 
“pros” de l'IBM PC, mais nous l'avons reproduit tel quel, car ce 
produit est suceptible d'interesser des personnes n'ayant pas une 
grande experience du monde IBM : ceux qui n'ont pas d'autre 
ordinateur, ou ceux qui travaillent sur Macintosh. 


Certains ex-utilisateurs des calculatrices HP-41 ou de 
HP71 se sont trouvés attirés par la HP95LX, mais ne 
disposent pas à domicile d’un équipement important. 
Il se pose alors rapidement à eux le problème 
suivant : comment transférer sur le disque C: de la 
machine divers fichiers contenus sur des disquettes 
DOS, si lon ne dispose pas d’un PC ? 


Une solution peut être apportée grace à l’utilisation 
d’un lecteur de disquettes externe tel que le Drive95 
de la société SPARCOM. 


C’est un lecteur de disquettes 3"1/2 alimenté soit par 
batteries soit par adaptateur secteur et acceptant les 
disquettes de 720K et 1,44MB. Ses dimensions 
aproximatives sont : 18x13x5 cm. Il possède de plus 
d’avoir le protocole Kermit intégré dans sa Rom 
Interne. La vitesse de transfert maxi est de 9600 
Bauds. Un cable série, fourni avec le lecteur, assure la 
liaison matérielle avec le HP95 (fiche femelle 4 
broches coté HP95, fiche femelle 9 broches coté 
lecteur). Il est également fourni une disquette 
comprenant les logiciels nécessaires pour 
communiquer soit avec un HP95 soit avec une HP48, 
via Kermit. Son prix est de 2500F environ. 


Une fois les connexions effectuées, la première tâche 
à accomplir consistera à installer un fichier nommé 
DRIVES.SYS sur le disque C: du HP95LX. Pour ce 
faire, il suffira de suivre pas à pas les instructions du 
manuel livré avec le lecteur. Il est de plus 
indispensable de modifier (ou de créer) le fichier 
CONFIG.SYS de votre HP95, en lui incorporant la ligne 
suivante : 


DEVICE=! 





2\DRIVE95.SYS 


Une fois cet ensemble installé, le lecteur sera reconnu 
par le HP95 comme l’unité G: 


Les lignes qui suivent permettront, du moins je 
l'espère, de réduire au minimum les tatonnements 


voire les plantages plutot décourageants pour le 
néophyte. 


Installation du driver DRIVE95.SYS. 


Les détenteurs de HP95 version US se contenteront 
de suivre strictement les séquences énoncées dans le 
manuel fourni avec le lecteur. Les séquences 
indiquées ci-dessous sont valables pour un clavier 
francisé. Supposons que la liaison matérielle entre 
HP9S et lecteur soit assurée; supposons également 
que toutes les données à conserver sont sauvegardées 
et que toutes les applications intégrées sont closes 
(Menu,auitte..Quitte... etc.) 


1- Activer l'application "Communication de données" 
(seconde touche bleue à partir de la gauche). 


2- Presser la séquence de touches : 


CMENUI £P] [C] C1] [VI [5] 
(Menu, Paramètres, Configuration, Interface, Vitesse, 
9600 Bauds) 


La première colonne de paramètres de l'écran doit 
alors indiquer : 


Interface : 
S-Comm. 1 (COM1) 
Vitesse 5 (9600) 
8-Arrêt 1 
Parité Sans 
Long 8 
Si tel est le cas: 


3- Presser 1Esc] deux fois, puis la séquence LT] IK] IC] 
(Transfer, Kermit, Charge) 


A la demande : 

Fichier(s) à charger avec Kermit 
répondre en frappant : DRIVE9S.SYS 
Presser ensuite la touche [ENTREE]. Le lecteur est alors 
mis en action, puis l'écran du HP95 présente dans un 
encadré le message suivant : 


Fin de transaction. Presser une touche pour continuer. 


Obtempérer à l’aide de la touche [ENTREE]. 














Recherche du fichier "CONFIG.SYS" 


Un fichier CONFIGSYS contient des commandes 
particulières qui se trouvent exécutées à chaque 
réinitialisation du HP95 (par exemple en pressant 
simultanément les trois touches : [CRTL] [ALT] [SUP1). Il 
s’agit maintenant de s’assurer de l’existence d’un tel 
fichier. Procéder comme suit : 


- Refermer l'application "communication de données" 
(Menu, quitte) 


- Ouvrir le gestionnaire de fichiers en pressant la 
touche bleue située le plus à gauche. Le répertoire du 
disque C: apparait à l'affichage; si le fichier recherché 
ne s’y trouve pas, il ne reste plus qu’à explorer le 
répertoire racine de l’unité A: (ceci suppose bien 
entendu la présence d’une carte Ram dans son 
logement). Presser successivement les touches 
suivantes : 


F5] A: [ENTREE] 


Si le fichier CONFIG.SYS n’existe dans aucune unité, il 
nous faudra transférer celui de la disquette fournie 
avec le lecteur. 


Transfert du fichier CONFIG.SYS depuis la disquette. 


Commencer par clore toute application. Ensuite 
répéter les points 1, 2 et 3 décrits ci-dessus; pour le 
dernier point, désigner CONFIG.SYS comme fichier à 
charger puis presser LENTREE]. Finalement, sortir de 
l'application coMM (presser LESC] deux fois, puis QUITTE) 
avant de réinitialiser le HP95 (pression simultanée de 
LCRTL] [ALT] [SUP] ). 


Le lecteur sera désormais reconnu comme lunité G: 
et l’on peut y accéder de la mème façon que pour les 
autres unités (presser [F5] G: LENTREE]). 


Modification du fichier CONFIG.SYS. 


On suppose ici qu’un fichier CONFIGSYS a été trouvé 
au cours de l’avant-dernière étape. 


- Sortir du gestionnaire de fichiers (Menu, quitte). 


- Ouvrir l'application MEMO (cinquième touche bleue 
depuis la gauche) et frapper la séquence: [MENU] [T1 10] 
(Menu, Transfert, ouvre). L'écran doit mentionner : 
Fichier à charger : 
C:\_Dat\*. TXT 


Effacer cette ligne par pressions répétées sur la 
touche +. 





- Presser ensuite : A:*.* ou bien C:*.* selon où se 


situe CONFIG-SYS. 


- Presser IENTREE] et contraster CONFIG.SYS dans le 
répertoire affiché; ensuite presser à nouveau [ENTREE]. 


- Sur la première ligne disponible frapper : 
DEVICE=DRIVE95.SYS 


- Presser LENTREE] puis [MENU] [TJ [SI (Menu, Transfert, 
Sauve). L'écran indiquera : 


Fichier à sauvegarder : 


Répondre en pressant: A:\Config.sys Ou C:\Config.sys 
selon le cas. 


- Presser [ENTREE]; à la demande : 
Remplacer Le fichier en cours? O ou N 
Repondre [0], puis [MENU] [Q] (Oui, Menu, Quitte). 
- Finalement, réinitialiser comme vu précédemment. 
Lancement d’un programme à partir d’une disquette 


Par précaution, placer le cran de sureté de la 
disquette en position "lecture". A partir du 
gestionnaire de fichiers, presser [F5] G: [ENTREE]. 


Le contenu de la disquette est alors affiché. A l’aide 
des touches fléchées, contraster le fichier à lancer 
puis presser [F4] (lance). 


Recopie de disquettes. 
Le processus à suivre peut se résumer ainsi: 


1- Insertion et formatage d’une carte Ram 
(éventuellement). 

2- Insertion de la disquette à recopier, protégée en 
écriture. 

3- Détermination de son contenu. 

4- Recopie du contenu de cette disquette sur 
carte-ram ou sur le disque C:. 

5- Substitution d’une disquette vierge à celle qui vient 
d’être lue et formatage à l’aide du logiciel FORMAT95. 

6- Duplication du contenu de la carte-ram ou du 


disque C: sur la disquette formatée. 


Mise en place et formatage d'une carte Ram. 


Vérifier que la carte Ram n’est pas protégée en 
écriture avant de l’insérer dans son logement. 
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- Placer le HP95 en mode configuration. 

- Dans le menu, sélectionner l'option "Format" et 
suivre les instructions affichées à l'écran. 

- Sortir du mode Configuration en sélectionnant 
Quitte. 


Insertion de la disquette à recopier 


La protection en écriture s'effectue en mettant en 
position haute le cran de sécurité situé dans le coin 
supérieur droit de la disquette. 


Contenu de la disquette. 


- Passer en DOS (Menu, Système). 

- Frapper DIR 6: puis LENTREE]. 

- Effectuer la somme des nombres de la troisième 
colonne qui donnent la taille de chaque fichier. 


Une autre alternative, beaucoup plus simple, permet 
d'obtenir le mème résultat : revenir au gestionnaire 
de fichiers (frapper EXIT, presser LENTREE)). Ensuite 
presser [F5] (Va) puis G: [ENTREE]. 


Enfin des indications plus précises sont obtenues 
comme suit : 


Presser [MENU] [R][S] (Menu, Répertoire, Statut) 
Presser [ENTREE] pour lire sur l’écran : 


Statut du répertoire 


G:\ 
Sous-répertoire dans Le disque: nn 
Fichiers du répertoire: mn 


Octets dans Le répertoire: nnnnnn 
octets disponibles sur disque:nnnnnn 
Nom du volume: nnnnnn 
Recopie du contenu de la disquette sur carte Ram ou 


sur le disque C: 


Presser simultanément [ALT] (F5] pour sélectionner la 
totalité des fichiers de la disquette. Ensuite, presser : 


- [F2] (Copie), A: LENTREE] pour transférer sur carte. 
- (F2]1 C: LENTREE] pour transférer sur le disque C: 


Le lecteur se met en marche et l'écran indique, dans 
un encadré, l’action en cours. 


Formatage d'une disquette vierge. 


Remplacer la disquette originale par une disquette 
vicrge. Le formatage s'effectue à l’aide du logiciel 
FORMAT95, comme indiqué précédemment, qu’il ne faut 
pas confondre avec la fonction FORMAT de l'application 
conF16; celle-ci est en effet réservée au formatage des 
cartes Ram. 


ATTENTION : prendre soin de vérifier l’existence du 
fichier FORMAT9S.EXE en C: avant de poursuivre, sous 
peine de plantage. 


Si ce fichier n’existe pas : 


- Remplacer la disquette vierge par celle livrée avec le 
lecteur. 

- Presser IF5] G: contraster FORMAT9S.EXE; presser 
LF2] C: ENTREE]. 

- Une fois le transfert opéré, remplacer la 
disquette-logiciel par la disquette à formater; celle-ci 
devant bien entendu être mise en position 
lecture-écriture. 

- Presser [F5] C: [ENTREE] 

- Contraster FORMAT9S.EXE, puis presser [F4] (lance). 

- A la demande : 


Format 720K or 1.44M? 
(default 1.44M) 


presser 720 ou 1.44 selon le cas, puis presser [ENTREE]. 
- A la demande : 
Volume name :, 


Frapper le nom retenu pour la disquette, puis 
LENTREE]; ce nom pouvant comporter jusqu'à 11 
caractères. 


- A la demande : 
Verify disk after format ? 


Presser Y ou N selon l'option choisie. Un formatage 
avec vérification durera environ 11 minutes pour une 
disquette 1.44MB et 15 minutes pour une disquette 
720K. 


- Enfin une dernière demande : 


“Format a 1.44 (ou 720K,selon le cas) disk with 
Volume name: (nom du support) ? CY/N)" 


Requiert une confirmation globale. 


Il est à remarquer que cette opération est 
particulièrement vorace. Aussi mieux vaut-il éviter 
d'entreprendre un formatage en absence de 
ladaptateur secteur. Il semble également audacieux 
d’enchainer le formatage de plusieurs disquettes. 
Enfin il faut aussi noter que l’alarme Battery lon 
s'affiche fugitivement et n’est pas maintenue. 
Toutefois, si cette alarme est restée ignorée, le 
processus s’interrompra sur une alarme sonore et un 
affichage d’erreur. Cela montre à l’évidence qu’il 
importe d’être très économe dans Putilisation du 














lecteur. C’est sans aucun doute la raison de la 
présence d’un programme nommé POMEROFF .EXE sur la 
disquette jointe au lecteur. Il est indispensable de 
charger ce programme sur le disque C: et de le lancer 
chaque fois que le lecteur n’est plus utile. 


Transfert du contenu de A: EN G: 


- Se placer dans Punité A:(1F51 A: IENTREEI). 

- Sélectionner tous les fichiers de A: (LALTI(F51), 
presser [F2] (copie), puis G: [ENTREE]. Le lecteur doit 
se mettre en marche; un encadré au centre de l'écran 
indique alors la nature de l’opération en cours. 


Contrôle des résultats 


- Presser tF71 (Divise): l'écran se divise en deux 


zones. Affecter celle de gauche à l'unité A: de la 
manière suivante : 


presser + (flèche gauche) A: LENTREE] 
Affecter celle de droite à l'unité G: 
presser + (flèche droite) G: LENTREE]. 


Le contrôle des deux répertoires peut alors ètre 
effectué pas à pas. Il est également possible de 
comparer la taille de chaque fichier en pressant à 
nouveau [F7] (Remplit), puis successivement 
cF5] A: [F5] G:. 


EN CONCLUSION 


Grâce à l’utilisation de ce lecteur de disquettes, j'ai 
appris à employer mon HP95 plus intensément. 
Souscripteur de la revue "HP Palmtop Paper", après 
quelques tentatives à l’aide de la disquette annuelle 
adressée aux abonnés, je me suis résolu à souscrire au 
“HP Palmtop on Disk"; ceci peut ètre une alternative 
à l’utilisation de messageries telles que Compuserve 
sur notre continent. Je peux aussi disposer d’un 
ensemble de disquettes de sauvegarde des fichiers qui 
encombraient le disque C: auparavant; économie par 
rapport à l'emploi de cartes Ram. 


Il est en outre fort probable que cet appareil puisse 
intéresser nombre de possesseurs de HP48 (en 
particulier pour l'emploi des "Goodies"). Voilà sans 
aucun doute matière à de nouveaux articles que des 
chevronnés du HP48 pourraient rédiger au profit de 
leurs cadets. 


Gérard Merlier (540) 


DES IMAGES SUR LE HP95 


Il est de plus en plus courant de récupérer des images 
contenues dans des fichiers graphiques. Si leur 
visualisation ne pose souvent pas de problèmes sur 
IBM PC, comment le faire sur le HP95 ? 


Cet article a pour but d'y répondre, et pourrait 
représenter la première partie d’une série d’articles 
consacrés à ce domaine. 


Mais tout d’abord, pour pouvoir visualiser des images 
dans de bonnes conditions, il est cependant nécessaire 
d’effectuer diverses conversions : 

- Tout d’abord, l’image doit être au format PCX. En 
effet, il n’existe pas (à ma connaissance tout au 
moins) d’utilitaires HP95 affichant d’autres types de 
fichiers graphiques. 

- Ensuite, il faut que l’image soit au format de 
l'ecran : 240x128. 

- Les pixels de l'écran du HP95 n'étant pas carrés (il 
sont d’un raport 4/3 environ). Il est nécessaire 
d’anamorphoser l'image, exactement comme pour un 
film Cinémascope. 

-Le HP95 possédant un écran monochrome 
uniquement (sans niveau de gris), il est nécessaire de 
filtrer le fichier de facon à ce que les plages de 
couleur soient replacées par des plages de pixels plus 
ou moins allumés, de facon à faire apparaitre des 
zones plus ou moins grises. C’est ce que les 
Anglophones appellent le dithering. 

- Enfin, les fichiers PCX monochromes étant prévus 
pour être affichés sur un écran vidéo (pixels blancs 
sur fond noir), il faut inverser l’image (la rendre en 
négatif’), afin d’être utilisée sur l’écran du HP95 
(pixels noirs sur fond blanc). 


Toutes ces étapes dégradant de façon (très !) 
significative l'image originale, n’essayez donc pas de 
convertir des images présentant de trop fins détails ou 
des couleurs trop proches les unes des autres... 


Afin d'effectuer toutes ces étapes, il est bien sûr 
préférable de travailler sur PC et de ne transférer que 
l'image finale sur le HP95. Surtout si l’on sait que 
certaines images originales peuvent dépasser 
largement le Méga-octet ! 


De nombreux logiciels permettent d’assurer ces 
conversions. Si vous ne voulez pas dépenser une 
fortune pour en acquérir un, vous pourrez en trouver 
de très bons dans le domaine public ou le Shareware 
(PICLAB, IMPROCESS...). 
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Pour ma part, j'utilise GRAPHIC WORKSHOP, qui permet de 
visualiser et convertir la plupart des types de fichiers 
graphiques (TGA 24 bits, PCX, BMP, GIF....). C’est 
ce programme qui va nous servir tout au long de cet 
article. 


Si vous ne possédez pas ce logiciel, vous pouvez vous 
le procurer chez mon fournisseur de Sharewares 
habituel : DP Tool Club (BP 745, 59657 Villeneuve 
d'Ascq). La disquette porte la référence n°1710 et 
coute 20F (plus 16 Francs de port par commande). 


Une fois que vous aurez recu et décompacté la 
disquette sur le disque dur, il ne fautra pas oublier de 
configurer le logiciel avec l’utilitaire GusiNsTAL. Cette 
étape dépendant de votre matériel, je ne peux 
évidement pas vous aider dans le cadre de cet article. 
Cependant, si vous avez des problèmes, n'hésitez pas 
à me contacter. 


Maintenant passons aux différentes étapes de la 
conversion. 


Conversion initiale 


Le programme pouvant accepter une grande variété 
de fichiers en entrée, jusqu'au TGA 24 bits (16 
milions de couleurs). La première étape est donc de 
se fixer un format de travail, qui soit le même pour 
toutes les conversions. Mon choix s’est porté sur un 
des formats les plus répandus : le GIF. Il s’agit d’un 
format de fichier compressé en 256 couleurs (8 bits). 


Si vous utilisez déjà un fichier en 256 couleurs, utilisez 
la fonction convert, accessible par la touche F2], et 
selectionner le format GIF. 


Si vous utilisez un fichier possédant plus de 256 
couleurs (TGA 24 bits par exemple), il est necessaire 
de passer par la fonction Effects, accessible par la 
touche (F9. A partir de là, selectionnez les 
sous-menus suivants Colour reduction, Remap, 
256 Colours Quantized, puis le format de fichier GIF. 


En sortie, vous obtiendrez un fichier GIF en 256 
couleurs. Si vous avez utilisé la seconde méthode, il 
portera le même nom que le fichier d’entrée, mais 
précédé des caractères x_. Ceci permet de garder le 
fichier original, quelque soit son type, et donc de 
revenir en arrrière si vous n’êtes pas satisfaits du 
résultat. Cependant, toutes les étapes suivantes 
transformant le nom du fichier de cette façon, il faut 
savoir qu’au bout de quatre étapes, le nom du fichier 
original aura complètement disparu. Pensez donc à 
sortir du programme et à renomer tout de suite le 
fichier final si vous avez plusieurs images à convertir. 


Conversion en image anamorphosée, 240x128 


La seconde étape consiste à convertir le format dans 
le résolution de l'écran (240x128). Cependant cette 
étape devra être coupée en deux parties : réduction 
de la résolution avec anamorphose, puis élimination 
des parties haute et basse de l’image. En effet, l'écran 
du HP95 est au format 10/4 alors qu’il nous faudrait 
un écran 4/3. Si nous désirons obtenir une image qui 
ne soit pas déformée, il nous faudra donc sacrifier les 
parties haute et basse de l'écran. Ceci est indépendant 
du problème du format des pixels, qui demande une 
anamorphose et dont nous allons nous occuper tout 
de suite. 


Conversion en image anamorphosée, 240 colonnes 


Cette première partie demande d’abord une petite 
partie de réflexion : Si nous savons que nous voulons 
obtenir un image de 240 colonnes, comment 
déterminer le nombre de ligne de l’image ? Ce n’est 
pas 128, puisque nous devrons couper l’image finale à 
cette valeur, comme je l’ai expliqué plus tôt. Mais 
alors quelle est la valeur à déterminer ? 


En fait cette valeur dépend de deux paramètres : tout 
d’abord, il faut obtenir une image intermédiaire 
respectant le format initial de l'image. Ensuite il faut 
déformer l’image en fonction du format des pixels. 


Le premier paramèêtre est une simple règle de trois : il 
suffit de diviser le nombre de colones par le format de 
l’image initiale. Le second paramètre est le rapport 
entre les formats des pixels des deux écrans. 


Ce qui nous permet d’obtenir l'équation suivante : 


nb_Lignes 





Lignes = 240 * 





nb_colonnes format _ 





où nb_lignes et nb_colonnes sont le format de l’image 
initiale et format_pixel est le format du pixel de 
l'écran pour lequel a été défini l’image initiale. En fait 
cette valeur est toujours à 1, sauf pour les images qui 
ont été prévues pour un écran CGA, pour laquelle 
cette valeur est de 4/3. Le résultat (Lignes) est donc 
la valeur correspondant au nombre de lignes de 
l'image intérmédiaire. 


Pour vous éviter quelques calculs, voici les valeurs 
correspondant aux formats d’images les plus répandus 
(pour un écran VGA) : 


320x200 + image de 240x200 
640x400 - image de 240x200 
640x480 - image de 240x240 
800x600 - image de 240x240 











Pratiquement, sur Graphic Workshop, nous utiliserons 
la fonction SCALE, accessible par la touche tF81. Celle 
ci permet trois modes de conversion : proportionnel, 
anamorphique (tous les deux demandant un 
pourcentage d’élongation) et par taille, permettant de 
fixer la taille de l’image en valeur absolue. 


Pour arriver à ce mode (puisque c’est celui qui nous 
intéresse), il nous faudra appuyer encore deux fois sur 
£F8] de facon à obtenir l'écran suivant : 


Set Scale Factor : 
MIDTH : 100 
DEPTH : 100 


Il nous suffira de remplacer les deux valeurs 
numériques par 240 pour WIDTH et 200 ou 2490 (suivant 
le format de l’image initiale) pour DEPTH. 


Après ceci, le programme nous demandera le format 
du fichier de sortie (nous répondrons GIF) et sauvera 
le fichier avec un nom commencant par S_. 


Avant de terminer cette partie, je ne ferais que vous 
conseiller d'utiliser une image initiale de grande 
résolution. En effet, si vous utilisez une image d’un 
format proche de celle de destination, vous risquez 
d'obtenir un effet de moirage peu esthétique. 


Conversion en image 240x128 


Une fois cette première phase effectuée, il faut 
mainenant supprimer les parties hautes et basse de 
limage. Cela est fait en utilisant la fonction Crop, 
accessible par la touche 1F51. 


Le programme affiche alors l'image (en noir et 
blanc). En utilisant les touches [Shift Droit] et 
IShift Gauche] en coordination avec les touches 
fléchées, nous pouvons redéfinir les nouvelles 
dimensions de l’image. Puisque nous avons déjà défini 
la largeur de l'image (240 colonnes) nous ne devons 
modifier que la hauteur en cadrant la partie 
intéressante. 


Une fois une zone de 128 ligne sélectionnée, appuyer 
sur F10 pour sauvegarder la nouvelle image au format 
GIF. Ce nouveau fichier portera le préfixe c_. 


Conversion en image monochrome 


Si les précédentes étapes demandaient peu de 
réflexion, cette étape est probablement celle qui 
risque de demander le plus d'essais avant de 
récupérer une image qui restitue le plus de détails de 
Poriginal. 


© — ————————————— 


Tout d’abord, vous avez remarqué que cette étape se 
situe vers la fin du processus et que nous avons 
toujours une image couleur. Cela est du au fait que si 
nous étions passé dès le début en monochrome, nous 
aurions vite perdu de nombreux pixels significatifs de 
l'image. De plus, le fait d’avoir conservé une image 
couleur nous permet de traiter les parties les plus 
complexes du processus sans avoir a reprendre toutes 
les étapes. 


La première partie consiste à préparer l’image de 
façon à accentuer tous les détails importants de 
l'image, par rapport aux éléments qui les entourent. 
Ceci est fait en travailant sur le contraste et la 
couleur. Par exemple, si nous avons une image 
relativement sombre, avec une partie de l’objet 
principal dans lombre, le fait de diminuer le 
contraste permet de "sortir" l’élement sombre de 
façon à le rendre plus visible. 


Pratiquement, sur Graphic Workshop, cela se fait en 
affichant l’image et en utilisant les touches IR], [6] et 
t81 pour les couleurs primaires, [C1 pour le contraste 
et «11 pour la lumière. (La touche tshift] permettant 
de diminuer ces valeurs). Une fois le résultat désiré 
obtenu, on sauve l’image (qui portera le préfixe A_) à 
l’aide de la combinaison de touches [Shift] [ESC]. 


L'image étant maintenant prête à passer en 
monochrome, il nous faut selectionner la fonction 
Dithering à l’aide de la touche tF31. Le programme 
nous demande alors différentes méthodes, dont 
Floyd, Burkes et Stucki. Théoriquement, la troisième 
méthode est la meilleure, mais étant donné la faible 
résolution de l’image, certaines images peuvent être 
plus fidèles en utilisant une des deux autres méthodes. 
Il vous faudra tester les trois et prendre l’image qui 
vous semblera la meilleure. 


A partir de cette étape, vous pourrez stocker l’image 
résultante au format PCX, qui sera préfixée D_ après 
cette opération. 


Inversion de l’image 


La dernière étape est très simple par rapport à ce que 
nous venons de faire, puisque il s’agit de selectionner 
la fonction inverse avec la touche 1F61 et de sauver le 
résultat dans un nouveau fichier PCX portant le 
préfixe R_. 


Visualisation de l’image sur le HP95 
Après avoir renomé le fichier avec un nom moins 


barbare que celui résultant des étapes précédentes. 
Vous pouvez le transférer sur le HP95. 
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Pour le visualiser sur cette machine, vous avez 
maintenant deux solutions : 


- Utiliser un utilitaire tel que PCXVIEN (qui est inclus 
dans notre disquette n°1). 


- Ou mieux, en profiter pour remplacer le 
"TOPCARD", c’est à dire l’image affichée par le 
System Manager lorsque toutes les applications sont 
fermées. Pour cela, la méthode la plus simple est de 
copier le fichier dans le directory _DAT en le renomant 
ToPcARD.pcx. Notez que pour que l’image ne soit pas 
surchargée par les informations parasites (Nom de 
lutilisateur, Compagnie...) vous devrez les effacer en 
utilisant le sous-menu Osner du Setup. Il peut en être 
de même pour l'horloge et le message Press Any Key 
présent en bas à gauche de l'écran. Pour cela, il vous 
vaudra (toujours dans le sous-menu Ouner) spécifier 
votre fichier graphique en l'appelant autrement que 
A_DAT\TOPCARD .PCX. 


Jacques Belin (123) 


PROGRAMMATION GRAPHIQUE : 
LES POINTS NOIRS 


Il est des fois où certaines erreurs ont la dent dure. 
En effet, ce n’est qu'après avoir fait plusieurs 
programmes graphiques et repris l’article présenté 
dans JPC 84 pour Poche Computers, que je me suis 
aperçu que j'avais fait deux lamentables gaffes.. 


La première était présente dans les articles eux 
mêmes et non dans le listing du fichier grafx95.c. Elle 
concerne la fonction d’entrée en mode graphique 
(que j'avais jugé bon de simplifier par rapport aux 
fichiers de description) et ou je mentionnais le code 
de sous-fonction 20h au lieu de 80h. Le résultat était 
simple : Plantage de la machine en entrée du mode 
graphique lorsque le programme exécuté est une 
application DOS. 


La deuxième erreur ne s’est manifesté que sur le 
HP100LX. En effet, si le HP95 accepte très bien de 
revenir en mode texte avec la fonction 0 / sous- 
fonction 7 de l'interruption 10h, le HP100 impose 
absolument de passer par l'interruption 5Fh pour 
revenir en mode texte. Pour que le programme 
fonctionne bien sur les deux machines, il est donc 
conseillé de n’utiliser que l'interruption 5Fh. 


Je vous donne donc le texte exact de la fonction 
concernée (toujours sur l'interruption 5Fh) : 


AH = Oh 
AL = mode : 
87h : texte 


AOk : graphique 
07h : texte (system manager) 
20h : graphique (system manager) 


Les sous fonctions 07h et 20h ne doivent être 
employées que quand le programme est une 
application System Manager. Elles permettent de 
Finformer que le mode graphique a changé et le 
contenu de l'écran détruit. Elles ne doivent pas être 
utilisées dans un programme purement DOS, sous 
peine de plantage. 


Jacques Belin (123) 

















Image Originale (640*480, 256 couleurs) convertie en Noir et Blanc 


(image de synthèse de Tom Price, réalisée avec 
le logiciel Persistence Of Vision). 





La même, telle qu’elle apparaitra sur le HP95. 
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LE COIN DES CODES 


La compilation de certains programmes, tels ceux 
écrits en assembleur, nécessitent souvent un logiciel 
que ne possèdent pas tous nos lecteurs. Le Coin des 
Codes permet de résoudre ce problème. 


Note importante : 


Même si la présentation des listings est identique, le 
traitement de ceux-ci est différente suivant le 
programme d’entrée et la machine de destination. 
Chaque listing est prévu pour être entré sur sa 
machine de destination. Par exemple, ne tentez pas 
d'entrer un programme HP48 dans un fichier 
MS-DOS à l’aide du programme makevos. Vous 
obtiendrez un fichier que vous ne pourrez pas 
transférer dans la HP48. 


Programmes HP48 et HP28S 


Par rapport aux méthodes habituelles sur HP48, notre 
méthode effectuant un calcul local du checksum en 
fin de chaque ligne permet de faciliter la recherche 
d'erreurs, par rapport à une même recherche dans 
une chaîne de plusieurs centaines d’octets. 


Par mesure de sécurité sauvegardez vos programmes 
et fichiers, éventuellement verrouillez vos cartes. 


Tapez les deux programmes correspondant à votre 
machine: 

- pour HP-48 : ASSCOD48 et INPUT48 

- pour HP-28S : ASSCOD28 et INPUT28 

(attention aux parties communes et spécifiques HP-48 
ou HP-28S et aux commentaires) 

Ceci avec la plus grande attention car leur mauvais 
fonctionnement peut entraîner un désordre fatal pour 
les objets contenus dans votre machine. La 
commande sPeeD (JPC-85 page 12) peut être incluse 
au début de ASSCOD28. NEWLINE (-) s'obtient sur 
HP-48 par flèche bleue] puis [.1. 


ASSCOD48 996.5 octets 
cksum # 5D1Bh 


ASSCOD28 1136 octets 
cksum # D419h 


« RCLF HEX 64 STWS 1 SF "“# ’tmpcod’ STO 


“nombre d'octets @ + NEWLINE 
@ NEWLINE 

"17 INPUT48 1 CF STR-+ 2 * 16 @ INPUT28 

DUP2 / IP 3 ROLLD MOD DUP2 O0 > + @ si HP-28S 


3 ROLLD 1 + 4 ROLL # Oh DUP + nr f s o « 1 SWAP 

FOR i 

DO "ligne " i 1 - R+B # 1000h + -STR 4 6 SUB + DUP 
” @ NEWLINE 


chaine @ + NEWLINE 


IF THEN r DUP 4 / IP + SWAP OVER 1 SWAP OVER - 
SUB SWAP 18 + ELSE 38 END 'o’ STO + 

x @ NEWLINE 

"+ 1 FS?C IF THEN ROT SWAP CLLCD 1 DISP HALT 
ELSE o INPUT48 END DUP  @ INPUT28 

WHILE DUP “ # POS DUP @ si HP-28S 

REPEAT DUP2 1 SUWAP 1 - SUB 3 ROLLD 

1 + 25 SUB IF DUP " " == THEN DROP ELSE + END 

END DROP O OVER SIZE 1 SUAP 

FOR j OVER j DUP SUB NUM j * + NEXT 

S + DUP # FFFh AND 








, @ NEWLINE 
somme de controle @ + NEWLINE 
es @ + NEWLINE 

#" 6 ROLL SWAP + 34 INPUT4B STR+ @ INPUT28 

IF THEN SWAP DROP 1 @ si HP-28S 


ELSE DROP2 1000 1 BEEP 1 SF O END 

UNTIL END ‘’s’ STO 

WHILE DUP "“ POS DUP 

REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 1 + 19 SUB fi 
END DROP ’tmpcod' DUP RCL ROT + SWAP STO 
NEXT f STOF » tmpcod 
@ * HP48* @@ * 
"GROB 8 " @@ # 20204A04F3D02C67h # FB0004F02C96040Ch 
OVER SIZE @@ # 8DCCO5081F804F27h # 313103190F818341h 








nennnesense HAP.2SS veesesessensnnss 


2/""  @@ # 681808AE91851391h # 45DC061171085168h 
++ SWAP @@ # F3D3CEAA125E5D8Eh # 2F9004h 28 STUS 
+ STR+  @@ #0 OR 64 STUS 1 7 START # 3B82h SYSEVAL 
# 4017h @G@ NEXT # 20238h SYSEVAL # 4F3Dh SYSEVAL 
SYSEVAL  @G@ EVAL 

# 5686h  @@ toutes ces lignes marquées @@ peuvent 

SYSEVAL  @G@ être remplacées par ASC+ : 

DROP @@ soit pour HP-48 (JPC-79 page 11) 

NEWOB @@ ou pour HP-28S (JPC-85 page 8) 


Mfin“ CLLCD 1 DISP » @ HP-28$ dito 
INPUT48 412.5 octets INPUT28 228 octets 
cksum # 15C7h cksum # 9412h 

« SAP 1 @ partie commune 
MHILE OVER CLLCD 1 DISP @ HP-48 et HP-28 
REPEAT @ puis séquence 


DO UNTIL KEY END @ HP48 ou HP-28 
@ *enessenese Hp4g sesnsesssee D se0ee HP2BS eve 
IF DUP 51 == THEN DROP O @@ 1F DUP "ENTER" 
ELSE IF DUP 55 == THEN DROP  @@ THEN DROP 0 
1 OVER SIZE 1 - SUB @@ ELSE 
ELSE @@ 1F DUP "BACK" == 
CASE DUP 17 < THEN 54 + END @@ THEN DROP 1 OVER 
DUP 66 < THEN 7 - END @@ SIZE 1 - SUB 
DUP 76 < THEN 20 - END @@ ELSE 
DUP 86 < THEN 33 - END @G@ suite voir HP-48 
92 == THEN 48 END @@ 
46 END CHR @@ 
+ DUP SIZE 3 PICK - 2 + 5 MOD NOT @ partie 
1 FC? AND IF THEN " + END END 1 @ commune 
END END SWAP 60 SUB » @ HP-48 et HP-28 

















Donc à partir de maintenant pour tout assemblage de 
chaîne de codes procédez de manière suivante : 


1- lancez le programme ASSCOD48 ou ASSCOD28 

2- donnez le nombre d’octets (1/2 octet compris) puis 
validez avec ENTER. 

3- tapez chaque ligne de codes, correspondant au 
numéro de ligne à 3 chiffres, sans les espaces et 
validez. 

4- tapez la somme de contrôle et validez. S'il y a 
erreur la ligne de codes sera demandée à nouveau 
après émission d'un 8EeP. L’appui sur EDIT fera 
apparaître la ligne des codes qui pourra être corrigée. 
Alors relancez avec CONT. 

5- après l’affichage de “fin” stockez le programme 
assemblé dans la variable donnée en tête. 

6- si tout s’est bien déroulé vous pouvez purger tmpcod 
qui contient la chaîne de codes. 


Programmes MS-DOS 


Afin d’être utilisé par tous, ce programme est destiné 
à être écrit en Gw8AsIc. Il devrait cependant être facile 
de le convertir pour un autre programme (BASIC, 
Turbo BASIC...). 


Programme MAKEDOS.BAS 


10 INPUT "Nom du fichier : 
20 OPEN NOMS FOR OUTPUT AS #1 : CLOSE #1 : 
30 OPEN "bin.tmp" FOR OUTPUT AS #1 : S=0 : P 
40 NLINES=N\16 : LENLAST=(N MOD 16)+CCN MOD 16)15) 





",NOM$ : INPUT “Nombre d’octets : 
KILL NOMS 


Mode d'emploi : 


1- Lancer le programme : GWBASIC MAKEDOS.BAS 

2- Entrer le nom du fichier destination. 

3- Entrer la taille du fichier. 

4- Entrer les listes de codes puis le checksum (en 
prenant soin d’entrer les codes héxadécimaux en 
majuscules). En cas d’erreur corriger la ligne, en 
prenant soin de placer le curseur après le dernier 
caractère avant de taper sur la touche d’entrée. 

5- Une fois que toutes les lignes sont entrées, sortir 
du GwsAsic en exécutant la commande SYSTEM. Le 
nouveau programme est immédiatement disponible. 


Note : La taille du fichier résultant peut être 
supérieure d’un octet à ce qui est affiché dans le 
listing. Cela n’est pas un problème. 








50 IF CN MOD 16)=0 THEN NLINES=NLINES-1 : LENLAST=LENCPS) 


60 FOR X=0 TO NLINES 
70 IF X=NLINES THEN P$S=LEFTS(P$, LENLAST) 
80 Cs-P$ 

90 ÀX2$="O0"+HEXS(X) : PRINT RIGHTS(X2$,3); 
100 Y=CSRLIN : LOCATE Y,6 : 





PRINT C$; : LOCATE Y,6 : INPUT 


CS : IF Y=24 THEN Y=Y-1 








110 LOCATE Y,27 : PRINT " sm = ---" : LOCATE Y,33 : INPUT ,0$ 

120 MS 

130 FOR Z=1 TO LEN(CS$) 

140 1F MIDS(CS,Z,1)<>" " THEN M=(M+((Z-(Z\5))*ASCCMIDS(CS,Z,1)))) MOD 4096 


150 NEXT 2 

160 D2$="O0"+HEX$S(M) : D2$=RIGHTS(D2$,3) 
170 IF D2$<>D$ THEN PRINT "Erreur de somme" 
180 FOR Z=1 TO LENC(C$) STEP 2 

190 IF MIDS(C$,Z,1)=" " THEN Z=Z-1 : GOTO 230 





200 CH=ASC(MIDS(CS,Z,1))-48 : IF CH>9 THEN CH=CH-7 


BEEP : GOTO 90 


210 CL=ASC(MIDS(CS,2+1,1))-48 : IF CL>9 THEN CL=CL-7 


220 PRINT#1,CHR$((16*CH)+CL); 


230 NEXTZ 
240 S=M 
250 NEXT X 


260 CLOSE #1 : NAME "bin.tmp" AS NOM$ : END 
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000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00: 
000: 
00€: 
O0F: 


000: 
001: 
002: 


000: 
001: 
00: 
00: 
004: 











FIND28S 
# EOC5h 


0123 4567 


76C2 04C3 
9c20 3E00 
1800 FFF3 
3133 1303 
38A2 F033 
1111 7914 
6174 1431 
4A20 BA6F 
7481 8F84 
E40D 6133 
CED7 8163 
1148 9EA8 
88A6 F55E 
6480 1521 
5BE1 32E4 
801E 5210 


XMOD-KER 
# BB7Bh 


0123 4567 


D9D2 0D29 
0040 D9D2 
0008 FB97 
1781 4717 
734C F820 
0142 8A68 
7OCF 56E8 
6608 2130 


BANKN2 
# 2815h 


0123 4567 


D9D2 OFDE 
1000 D9D2 
E267 9E60 
3028 AAOB 
6CAF 0632 
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CHP28) 

126 octets 

89AB CDEF sm 
COD3 F406 DEA 
08F1 8050 A2D 
OF15 CO14 7DF 
4O7A 2014 34E 
2020 8098 106 
7136 1370  Cé2 
3114 334E 886 
C174 1431 54E 
3302 0088 1E6 
CA13 181E F84 
1938 F11C DDO 
0818 686A BEC 
80DF 1449 B26 
9108 0160 646 
0713 5141 210 
9F20 2A6 
CHP48) 

62.5 octets 
89AB CDEF sm 
5109 F81D F14 
OCCD 2005  CB8F 
6014 3131 893 
4818 FA5D 725 
4114313 360 
0133 5AO1 F7C 
D276 3075 CE1 
8213 0 F55 
CHP48) 

375.5 octets 
89AB CDEF sm 
8111 9201 CAC 
OB7E 2687 B4C 
D9D2 02C2 943 
9F06 12F0 747 
2302 FA30 448 


005: 
006: 
007: 
008: 
009: 


008: 
00c: 
000: 
00€: 
00F: 
010: 
011: 
012: 
013: 





c891 
A226 
0001 
3C2A 
2361 


: 207F 


3915 
8130 
124C 
2013 
2F46 
2472 
6E69 
1609 
0130 


: 16c6 


3777 
7693 
0E21 
1c91 
5A99 


: 0116 


8501 
4381 
1108 
718A 
EI4E 
14E8 
1811 
2118 
20CC 
14E6 
8114 


: 0086 


8F5E 
5F00 
O8FC 
4230 
660E 
3000 
0000 
0000 


# 866Ah 


0123 


6D9D 2084 F067 283 
8DA1 6C2A 2070 FAE 
3Cc2A 2070 0002 AC8 
2052 000E 4F60 786 
6274 6029 6E60 455 
6274 7023 2230 F98 
OA64 059F F308 DSC 
EC&A 35E1 4195  AC7 
8916 4423 OC2A 829 
0004 5572 7E60 479 
4640 216E 6460 0D9 
7970 2167 6169  D02 
33A1 8213 O8DA B19 
D20B 4F06 C2A2 980 
0094 Cécé 5676  6C8 
0226 16E6 B602  3C2 
9647 3686 96E6 184 
3A18 2130 CCD2 FD4 
0017 98FB 9760 D63 
4313 0164 AFO1 A0B 
7C60 6EDO B1AF 969 
4142 8408 A8B50  5B4 
7414 3131 1741 089 
AF02 7280 8F51 E58 
6080 208F F370 BBA 
FFFF 16E1 6314  9E4 
14E1 8114 E161  6A9 
1AF1 2CCC C5FO  6AA 
4E14 E6B3 OCCS 555 
14E 1611 4E66 238 
5211 4E14 E181 F4E 
110€ C581 14E1  CA2 
ETAO 1001 4E63 91E 
0802 18FF 3707 696 
0108 D341 501F 3AD 
8071 3434 ECO0O  O6E 
0760 8D5F 0084 DE7 
E6B1 2821 3075 A47 
8F60 8213 0B21 712 
0000 0000 0000 095 
0000 0000 0000 A15 
0000 0000 000 095 
CHP48) 

375.5 octets 

4567 89AB CDEF sm 


000: D9D2 
001: 9020 
002: 8976 
003: 3710 
006: 0142 
005: D381 
006: 4613 
007: 6828 
008: c4pé 
009: 136€ 
00A: 18F0 
008: 65A0 
00C: 9966 
000: 0818 
O0E: CA13 
00F: O8A2 
010: 28A8 
011: 1AE6 
012: 6013 
013: AS2C 
014: C48A 
015: E265 


018: 3205 


029: 8014 
O2A: 9F18 
028: E213 





02E: 0000 





OECE 
ccp2 
0143 
1021 
1301 
8F3F 
4146 
50D0 
C4CA 
A130 
7130 
c213 
6068 
F018 
0142 
B1D9 


10A1 
6c26 
E10A 
8808 
AF81 
1AF1 

ODA8 
081A 
6060 
712A 
7191 

0F13 
4131 
1537 
9888 
DO14 
0181 

1420 
4136 
72 
0152 
1209 
A645 
E186 
2130 
4142 
éécE 

0821 

0000 
0000 


8182 
O7A2 
1311 
0A18 
4281 
1B6A 
1301 
1523 
co81 
6F00 
1468 
4001 
cocé 
18F0 
D534 
1341 
6E26 
6714 


E8F1, 


18ED 
18F0 
AF10 
8846 
F207 
F006 
DECé 
6E80 
2940 
2103 
818F 
9763 
7560 
AC4B 
8F01 
5346 
1890 
8F34 
1118 
11c1 
ED91 
0911 
1421 
BABE 
F18C 
3082 
0000 
0000 


0400 
008F 
7415 
9068 
AF00 
D80 

6L8A 
p&c4 
8F02 
8408 
AE60 
SA 
8A88 
1136 
69a2 
8414 
AAF1 
2848 
1A8A 
oi6a 
1136 
8F1D 
9134 
6080 
ACE9 
818F 
D015 
016A 
1301 
AFDS 
116F 
DF69 
AB80 
136c 
920 
6801 
150€ 
1341 
3520 
3411 
B6AD 
3066 
0136 
687F 
130€ 
0000 
000 


E3D 
c52 
78D 
5AB 
20A 
080 
ccé 
AB1 
88F 
546 


FOD 
D54 
QAF 
éc7 


102 
F10 
E29 
c97 
919 
85c 
5A7 
470 
2E1 
24C 
FB2 


779 
678 
376 
3c7 
186 
EB7 
B5E 


540 
0E7 
CFA 
900 
88D 
381 
080 
05A 
cpA 
65A 
cDA 
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